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V Q ir w o ir 


Mit seinen über 400 Seiten halten Sie das derzeit 
umfangreichste DATA BECKER BÜCH in Ihren Händen. Gleichzeitig 
ist es unser erstes zum APPLE II (beziehungsweise IIc, Ile). 


Werner Voß und Renate Prust geben mit 
APPLE-Anwender viele Hinweise und 

Seiberprogrammieren. Ob es sich nun 

dreidimensionale Grafik oder wichtige 

handelt, etwas nützliches ist mit Sicherhei 
Gleichzeitig ist dieses Buch nicht nur ei 
Tips & Tricks, sondern durch seine 

gleichzeitig ein Arbeits- und Handbuch zur 
APPLESOFT-BASIC. 


diesem Buch dem 
Hilfen zum 

um Peripherie, 
Speicheradressen 
t für jeden dabei, 
ne Fundgrube für 
klare Gliederung 
Programmierung in 


Viel Erfolg beim Programmieren! 



Dr. Achim Becker 
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Vorbemerkungen 

Jeder, der sich mit einem Kleinrechner, wie z.B. 
dem APPLE II, intensiver beschäftigt, wird über 
kurz oder lang feststellen, daß eine Reihe von ty¬ 
pischen Anwenderfragen in den mitgelieferten Hand¬ 
büchern oder in der einführenden Mikrocomputerlite¬ 
ratur zu kurz kommen. 

Es ist deshalb Anliegen dieses Buches, einige Tips 
und Tricks vorzustellen, die die Programmierung des 
APPLE II erleichtern oder auf geschickte Weise eini¬ 
ge Probleme lösen. 

Es versteht sich von selbst, daß bei der Auswahl der¬ 
jenigen Anwenderprobleme, die hier besprochen werden, 
ein gewisses Maß an Willkür nicht zu vermeiden ist. 

Es gibt ja unendlich viele spezielle Probleme, aber 
der zur Verfügung stehende Platz zwingt dazu, eine 
Auswahl vorzunehmen. Wir haben diese Auswahl so vor¬ 
genommen, wie sie sich aufgrund unserer mehrjährigen 
Erfahrungen beim Einsatz des APPLE II bei konkreten 
Problemstellungen angeboten hat: 

Es zeigt sich nämlich beim praktischen Rechnereinsatz 
sehr schnell, daß sich bestimmte Problemtypen recht 
häufig wiederholen - und genau diese haben wir uns 
vorgenommen. 

Bevor der Leser sich der Erörterung dieser Probleme 
nun widmen kann, sind allerdings einige Vorbemerkun¬ 
gen notwendig, wenn die später vorgestellten Program¬ 
me nutzbringend verwendet werden sollen. 
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1. In den Vordergrund der Betrachtungen werden Pro¬ 
gramme in der Programmiersprache BASIC gestellt. 

Auf andere Sprachen wird nur in wenigen Kapiteln 
Bezug genommen. 

2. Wir gehen davon aus, daß der Leser schon über 
einige BASIC-Programmiererfahrung verfügt. 

Um aber auch dem Anfänger die Möglichkeit zu bie¬ 
ten, die hier vorgestellten Programme nachzuvoll¬ 
ziehen oder verwenden zu können, stellen wir den 
eigentlichen Ausführungen ein Kapitel voran, wel¬ 
ches die grundlegenden BASIC-Anweisungen wieder¬ 
holt. 

Der "Könner" auf diesem Gebiet mag dieses Kapitel 
getrost überblättern. 

3. Bei den einzelnen Problemstellungen, die hier 
aufgegriffen werden, verwenden wir nur in Ausnah¬ 
mefällen Software-Angebote oder speziell für den 
APPLE II zur Verfügung stehende Dienst- oder Hilfs¬ 
programme. 

Vielmehr ist unser Ziel, auch denjenigen APPLE- 
Besitzern "Tips und Tricks" mitzuteilen, die auf 
fertige (und oft teure) Programmangebote keinen 
Wert legen oder sich dies nicht leisten mögen. 

4. Bei der Auswahl der Themenbereiche, die hier an¬ 
gesprochen werden, haben wir uns nicht von den 
Interessen spezieller Benutzerkreise leiten las¬ 
sen: Es geht also nicht um spezielle kaufmänni¬ 
sche Probleme oder nur um statistische Anwendungen 
oder um sonst ein spezielles, genau abgrenzbares 
Sachgebiet. 
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Vielmehr greifen wir unter programmlogischen 
und unter methodischen Gesichtspunkten unter¬ 
schiedliche Programmierprobleme auf, die dann 
in den verschiedensten Anwendungsbereichen Ver¬ 
wendung finden können. 

5. Bei der Vorstellung der einzelnen Programmtips 
und -tricks kommt es nicht auf möglichst hohe 
Eleganz der Programmierung an; auch die Rechen¬ 
geschwindigkeit spielt für uns nicht die ent¬ 
scheidende Rolle. 

In der Hauptsache kommt es uns hingegen darauf 
an, die einzelnen Arbeitsschritte, die einen Pro¬ 
grammablauf erzeugen, im Programm selbst noch er¬ 
kennen zu lassen. 

6 . Aus dem vorangegangenen Punkt wird schon deutlich, 
daß wir unter "Tips und Tricks" nicht die letz¬ 
ten "ausgefeilten" Spezialitäten verstehen wollen, 
sondern Hilfestellungen, die auch für den Anfän¬ 
ger noch verständlich sein sollen (der "Könner" 
wird ohnehin auch ohne unsere Hilfestellungen sich 
mit den Besonderheiten und Spezialitäten des 
APPLE II vertraut machen können). 


Zusammenfassend ist also festzuhalten, daß wir nicht nur 
Problemlösungen präsentieren, sondern insbesondere auch 
die einzelnen Schritte eines Problemlösungsweges aufzei¬ 
gen wollen, damit dieser Problemlösungsweg nachvollzieh¬ 
bar wird. 
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Das wesentliche Problem beim Computereinsatz besteht 
nämlich nicht darin, ein Programm "zum Laufen" zu 
bringen, sondern vielmehr darin, die Struktur eines 
Problems zu erkennen, also ein Problem zu analysie¬ 
ren, seine Lösung "im Kopf" vorzubereiten, bevor ein 
Programm erstellt wird, das die Lösung dann dem 
Rechner überträgt. 

Auch diese Zielsetzung legt eine Beschränkung auf eini¬ 
ge typische Problemstellungen und Beispiele nahe und 
den Verzicht darauf, optimale Programmstrukturen zugun¬ 
sten nachvollziehbarer Programme vorzustellen. 

Dies bedeutet, daß die einzelnen Programme, die in den 
späteren Kapiteln benutzt werden, in der Regel nach fol¬ 
gendem Schema präsentiert werden; 

1. Vorstellung des jeweiligen Problems; 

2. Entwicklung des adäquaten Computerprogramms; 

3. Programmbeschreibung und gegebenenfalls 
Vorstellung der Ergebnisse. 


Erst seit kurzer Zeit ist ein neuer Rechner der APPLE- 
II“Gruppe auf dem Markt, der APPLE IIc . Es handelt sich 
um eine Weiterentwicklung, die mit 128K standardmäßig 
einen größeren Speicher hat als seine Vorgänger. 
Wesentlich für den Leser dieses Buches ist vor allem 
die Feststellung, daß der APPLE IIc kein völlig neuer 
Rechner ist. 
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Zwar wird er mit dem Betriebssystem ProDOS geliefert, 
aber auch das "alte" DOS 3.3 steht noch zur Verfü¬ 
gung. Das bedeutet, daß alle Programme, die für die¬ 
ses Buch auf der Grundlage von DOS 3.3 entwickelt 
wurden, auf dem neuen Rechner gestartet werden können, 
auch wenn sie Anweisungen für den direkten Speicher¬ 
zugriff und den Aufruf von Maschinenprogrammen ent¬ 
halten. Außerdem können DOS 3.3-Dateien mit Hilfe 
einer mitgelieferten Systemdienstprogrammdiskette um¬ 
gewandelt werden in ProDOS-Dateien; die Dateinamen 
können sich dadurch allerdings verändern. ProDOS läßt 
nur 15 Zeichen für die Namen zu, Leerzeichen, Umlaute 
und ß sind nicht zulässig. Blanks werden bei der Um¬ 
wandlung in Punkte übersetzt. 

Es war nicht immer möglich, alle Feinheiten des neuen 
Betriebssystems mit in dieses Buch aufzunehmen; so sei 
nur in allgemeiner Form darauf hingewiesen, daß 
APPLESOFT-BASIC das gleiche geblieben ist, aber bei 
Einsatz von 2 Diskettenlaufwerken gibt es Unterschiede 
Der APPLE IIc hat ein eingebautes Laufwerk, der Aufruf 
eines zweiten, externen Laufwerks geht über PR#7. 

Dies entspricht der üblichen Slot-Schreibweise, obwohl 
der IIc keine Steckplätze mehr hat. Unter dem Betriebs 
System ProDOS entfällt der Befehl INIT, dafür gibt es 
ein Systemdienstprogramm, das Disketten formatiert 
(für 3 verschiedene Betriebssysteme), und ein weiteres 
mit dem zwei Systemdateien auf eine neue Diskette ko¬ 
piert werden müssen, damit sie gebootet werden kann. 
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Vorsicht sollte der Leser walten lassen beim Über¬ 
tragen des Kapitels 6 auf den neuen Rechner, ins¬ 
besondere beim Einsatz des PROGRAM LINE EDITOR. 
Ähnliches gilt für den Abschnitt "Initialisierung" 
des Kapitels 7, der für Benutzer des Betriebssystems 
ProDOS uninteressant ist. 

Allerdings ist es auch unter ProDOS möglich, mit dem 
Booten einer Diskette ein Programm zu starten (ähn¬ 
lich dem Initialisierungsprogramm); dieses muß den 
Namen STARTUP haben. 

Abschließend sei daran erinnert, daß dieses Buch von 
zwei Verfassern geschrieben wurde. Gewisse - vor allem 
stilistische - Unterschiede ließen sich deshalb nicht 
ganz vermeiden. 


Kapitel 1: Grundlegende BASIC-Elemente 


1.1 Einführung 

In diesem Kapitel soll zunächst ein kurzer Überblick 
über die wichtigsten und grundlegenden BASIC-Anwei¬ 
sungen geboten werden. Wir betrachten dieses Kapitel 
also quasi als Wiederholung oder als Auffrischung 
schon vorhandener Programmierkenntnisse. Aber auch der 
Anfänger wird so in die Lage versetzt, die Ausführun¬ 
gen der folgenden Kapitel zu verstehen. Für ihn mag al¬ 
lerdings dieser knappe BASIC-Wiederholungskurs zu kurz 
geraten sein: Vieles aber wird in den folgenden Kapi¬ 
teln, im Zusammenhang mit der Erstellung konkreter BASIC- 
Programme, klar werden. Was hier also zu knapp erscheint, 
erfährt die ausführlichere Erläuterung im Rahmen der ein¬ 
zelnen Programmbeispiele der späteren Kapitel. 

Wie auch schon in den Vorbemerkungen, sei hier ebenfalls 
darauf hingewiesen, daß Beschränkungen erforderlich sind: 
Nicht alles, was mit der Programmiersprache BASIC beim 
Einsatz der APPLE II-Rechner möglich ist, soll hier be¬ 
sprochen werden, sondern nur die wichtigsten und am häu¬ 
figsten benutzten Anweisungen. 

Ergänzend werden einige spezielle Anweisungen dann in den 
späteren Kapiteln - jeweils einleitend - kurz vorgestellt, 
wenn sie für bestimmte Programme tatsächlich benötigt 
werden. 
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1.2 BASIC 


Wenn ein Rechner für uns ein Problem lösen soll, so 
benötigt er dazu eine Folge von Anweisungen. 

Eine solche Folge nennt man ein Programm. 

Ein solches Programm muß in einer Sprache geschrieben 
werden, die ein Rechner verstehen kann. 

Die heute am häufigsten bei Kleinrechnern eingesetzte 
Sprache ist BASIC. 


BASIC = Beginner's 
All-Purpose 
Symbolic 
Instruction 
Code 


Diese Sprache ist allerdings nicht genormt, sondern es 
existieren unterschiedliche BASIC-Dialekte. 

Diese überschneiden sich allerdings in einer recht großen 
gemeinsamen Schnittmenge von grundlegenden Sprachelemen- 
ten; aber gerade der APPLE II arbeitet mit einer BASIC- 
Version (Applesoft BASIC), welche einige spezielle Be¬ 
sonderheiten aufweist, die wir uns zunutze machen können. 

Bevor nun die einzelnen Sprachelemente besprochen werden, 
muß auf einen wichtigen Sachverha.lt aufmerksam gemacht 
werden: 
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Jede Aufgabe, die ein Rechner erledigen soll, macht 
die Eingabe von drei Gruppen von Informationen erfor¬ 
derlich: 

1. Daten 

2. Programmanweisungen 
(auch Statements genannt) 

3. Kommandos (Mitteilungen 
an das Betriebssystem) 


Daten können Ziffern, Zahlen, Buchstaben, Worte, Texte 
oder sonstige Informationen sein. 

Die Programmanweisungen erzeugen die notwendige Folge 
von Anweisungen, die zur gewünschten Verarbeitung der 
Daten benötigt werden. Diese Anweisungen werden in BASIC- 
Programmen mit Satznummern durchnumeriert (üblicherweise 
in Zehnerschritten). 

Die Kommandos sind Mitteilungen an das Betriebssystem 
des Rechners und betreffen deshalb insbesondere organi¬ 
satorische Aufgaben des Datenverarbeitungsprozesses. 
Kommandos erhalten keine Satznummern. 
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1,3 Einfache Ausgabe- und Eingabeanweisungen 

Zur Ausgabe von Informationen dient das PRINT-State- 
ment, das in unterschiedlichen Varianten auftreten kann. 
Die folgenden Beispiele erläutern dies: 


10 

PRINT 

3 

Ausdruck der Zahl 3 auf dem 
Bildschirm; 

20 

PRINT 

3+5 

Ausdruck des Rechenergebnisses 8 ; 

30 

PRINT 

"APPLE" 

Ausdruck des Strings (=Zeichen- 
folge) APPLE; 

40 

PRINT 

X 

Ausdruck des Soeicherfeldes, das 
den Namen X trägt; 

50 

PRINT 


Ausgabe einer leeren Zeile. 


Die Möglichkeiten, die in den Statements 10 bis 40 ge¬ 
nannt wurden, können in einem PRINT-Statement mehrfach 
und/oder gemischt auftreten. Sie sind dann durch Komma oder 
Strichpunkt zu trennen. 

10 PRINT "SUMME=";3+5 


Diese Anweisung gibt erst den 
String SUMME =, daneben das Re¬ 
chenergebnis 8 an, also: 

SUMME=8 


20 PRINT 3,8 


Ausgabe der Zahlen 3 und 8 , 
also; 


3 


8 
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(Will man stattdessen die Dezimalzahl 3.8 benutzen, 
so muß in BASIC ein Dezimal punkt verwendet werden). 

Wird der Strichpunkt als Trenner benutzt, so werden 
die Teilausdrucke aneinandergerückt, die Verwendung des 
Kommas hingegen rückt die Ausdrucke auseinander. 

Jede PRINT-Anweisung bewirkt den Ausdruck einer neuen 
Zeile, es sei denn, diese Anweisung endet mit einem Kom¬ 
ma oder einem Strichpunkt. 

Das Wort PRINT kann abgekürzt werden durch ?. 

Weiterhin gilt, daß mehrere BASIC-Anweisungen, so auch 
z.B. PRINT-Anweisungen, in einem Satz stehen dürfen. 

Sie sind dann durch Doppelpunkte voneinander zu trennen. 

10 ?3+5 Diese Anweisungsfolge führt 

20 ? zu dem Ausdruck 

30 711-2 8 

9 

Diese Anweisungsfolge kann auch, wie oben beschrieben, 
in einem Satz zusammengefaßt werden: 


10 ?3+5:?:?11-2 
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Sind Verschiebungen in der Ausgabezeile erwünscht, 
so ist dies mit der TAB-Funktion möglich: 


10 ?TAB(5)3 

Ausgabe der Zahl 3 fünf 

"Anschläge" rechts vom 

linken Bildschirmrand. 


Zur Eingabe von Informationen stehen zunächst das 
LET- und das INPUT-Statement zur Verfügung. 


10 LET X=3.2 

Das Feld mit dem Namen X, 
welches das Betriebssystem 
selbstätig bereitstellt, wird 
mit dem Wert 3.2 belegt. 

20 LET Y=2*X 

Das Feld Y wird mit dem Wert 

6.4 belegt. 

30 LET Y=Y+1 

Das Feld Y wird jetzt mit dem 
Wert 7.4 belegt. 

40 LET N0="OTTO" 

Das Feld N0 wird mit dem String 
OTTO belegt. 

Es ist zu beachten. 

daß der Variablenname, der im LET- 

Statement links vom 

Gleichheitszeichen steht, mit einem 


Buchstaben beginnen muß. 

Wird ein ^ angehängt, steht das entsprechende Feld für 
Strings zur Verfügung, die bei der Eingabe in Anführungs 
Zeichen einzuschließen sind. 

Das Wort LET darf im LET-Statement entfallen: 


10 XX=(3+5)/2 

Das Feld XX wird mit dem 

Wert 4 belegt. 

20 Y2=XXt2 

Das Feld Y2 wird mit dem 

Wert 16 belegt. 
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Das LET-Statement eignet sich also besonders gut zum 
Durchführen von Rechenaufgaben. Dabei können eine Reihe 
von Funktionen nutzbringend verwendet werden. 

10 LET X=SQR(16) Berechnet wird die Wurzel aus 


20 ?X 


16 (=4); dieser Wert wird ausge¬ 
geben. 

Weitere wichtige 

Funktionen sind: 

SIN, COS, TAN 

: Winkelfunktionen 

INT 


: Bestimmt den größten, ganz¬ 
zahligen Teil in einer Zahl 

ABS 


: Absolutwert 

LOG 


: Natürlicher Logarithmus 

EXP 


: Exponentialfunktion 

RND 


: Bestimmt eine Zufallszahl 


Neben dem LET-Statement steht zur Informationseingabe 
das INPUT-Statement zur Verfügung: 


10 INPUT X : Anforderung eines Werts für 

die Variable X während der 
Programmabarbeitung 


20 

INPUT A,B,C 

: Anforderung von 

drei 

Werten 

30 

INPUT A0,B0 

: Anforderung von 

zwei 

Strings 

40 

INPUT "BITTE EINE 

ZAHL:";X 




wie 10, aber mit zusätzlicher 
Textausgabe 

50 INPUT "BITTE VOR-UND NACHNAMEV0,N0 


wie 30, aber mit zusätzlicher 
Textausgabe. 




Beim INPUT-Statement ist darauf zu achten, daß dem 
Rechner genau so viele Werte (Zahlen oder Strings - 
je nach Variablentypen) gegeben werden, wie Variablen 
in der Variablenliste hinter dem Schlüsselwort INPUT 
aufgelistet wurden. Diese Variablennamen sind durch 
Komma voneinander zu trennen, ebenso die einzugeben¬ 
den Werte. 

Jedes BASIC-Programm ist sinnvollerweise mit dem State¬ 
ment END abzuschließen. 

Kommentare, Anmerkungen, Überschriften und dergl. 
können mit dem REM-Statement eingefügt werden. 


Beispiel; 


30 

PRINT 

TAB< 9)"APPLE-TIPS UND TRICKS" 

40 

PRINT : 

PRINT : PRINT TAB< 9)"R.PRUST / W.VOSS 

50 

PRINT ; 

PRINT TAB< 1,0" 1.1 - PYTHAGORAS" 

60 

PRINT : 

PRINT : PRINT : PRINT : PRINT 

70 

INPUT " 

ERSTE KATHETE : ";A 

80 

INPUT " 

ZWEITE KATHETE : ";B 

90 

C = SQR 

(A “ 2 + B ' 2) 

100 

PRINT 

: PRINT : PRINT "HYPOTHENUSE = " ;C 

1 10 

PRINT 

: PRINT "ENDE“ 

120 

END 
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1.4 Erste Kommandos 


Ein BASIC-Programm, wie das eben vorgestellte, wird 
vom Rechner erst dann abgearbeitet, wenn wir dem Be¬ 
triebssystem das entsprechende Kommando geben. 

Es ist dies das Kommando 

RUN 

Wenn wir z.B. nach einem Programmlauf das Programm, 
welches vielleicht über den oberen Bildschirmrand 
hinausgewandert ist, wieder sehen wollen, benutzen wir 
das Kommando 

LIST 

Das Kommando LIST kann sich auch auf einzelne Sätze 
oder Satzgruppen beziehen, wie folgende Beispiele zei¬ 
gen : 


LIST 

50-150 

: Sätze 50-150 werden gelistet 

LIST 

-80 

: Alle Sätze bis 80 werden 
« listet 

ge- 

LIST 

100- 

; Alle Sätze ab 100 werden 
listet 

ge- 

LIST 

60 

: Satz 60 wird gelistet. 



Soll der Inhalt des Programmspeichers gelöscht werden - 
z.B. vor der Aufnahme eines neuen Programms -^so ist 
das Kommando 

NEW 


zu verwenden. 
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1.5 Programmverzweigungen 


Häufig ist es sinnvoll, daß bestimmte Programmteile 
mehrfach durchlaufen werden. Um dies zu ermöglichen, 
benötigt man sog. Sprunganweisungen (oder Verzwei¬ 
gungen) , wobei zunächst zwischen unbedingten und be¬ 
dingten Sprüngen zu unterscheiden ist. 


Der unbedingte Sprung wird mit dem Statement GOTO 
erreicht, wie folgendes Beispiel zeigt; 


30 PRINT TAB< 9)"APFLE-TI PS UND TRICKS" 

40 PRINT : PRINT ; PRINT TAB( 9)"R.PRUST / W.OOSS 1984" 
50 PRINT ; PRINT TAB( 10)"1.2 - ENDLOSSCHLEIFE" 

60 PRINT ; PRINT ; PRINT : PRINT ; PRINT 
70 I = 1 • 

80 Q = I * I 
90 PRINT I,Q 
100 1 = 1+1 
110 GOTO 80 
120 END 


Dieses Programm druckt alle natürlichen Zahlen und ihre 
Quadratzahlen, und zwar so lange, wie die Speicherka¬ 
pazitäten des Rechners dies erlauben (also sehr lange!). 


Zu lang dauernde Programmläufe (oder auch Auflistun¬ 
gen) kann man stoppen mit der Tastenkombination 


CTRL 


und 
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Will man mit der Programmabarbeitung dann an der 
Unterbrechungsstelle (eventuell) fortfahren, so 
ist das Kommando 

CONT 

einzugeben. 

Statt das Programmabarbeiten (oder das Programm- 
Auf listen) zu unterbrechen, kann es auch "gebremst" 
werden, und zwar mit der Tastenkombination 

CTRL und S 

Zur Fortsetzung braucht dann nur irgendeine Taste 
bestätigt werden. 


Der bedingte Sprung, (das IF...THEN-Statement), unter¬ 
scheidet sich vom eben besprochenen unbedingten Sprung 
dadurch, daß er nur dann ausgeführt wird, wenn eine 
vorgegebene Bedingung erfüllt ist. 


30 

PRINT 

TAB< 9)"APPLE-' 

TIPS UND 

TRICKS" 

40 

PRINT 1 

! PRINT : PRINT 

TABC 

9) 

"R.PRUST / W.t'OSS 1984" 

50 

PRINT 1 

! PRINT : PRINT 

TAB( 

9) 

"1.3 - BEDINGTER SPRUNG" 

60 

PRINT 1 

: PRINT 




70 

I = 1 





SO 

Q = I # 

I: PRINT I,Q:I 

= I + 

1 


90 

IF I < 

= 12 THEN GOTO 80 



100 

PRINT 

"ENDE": END 
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In diesem Programm werden natürliche Zahlen (und 
ihre Quadrate) nur zwischen 1=1 und 1=20 ausgegeben. 
Danach wird das Programm beendet. 


Allgemein gilt: Ist die logische Bedingung hinter dem 
Schlüsselwort IF erfüllt, so befolgt der Rechner die 
Anweisung, die hinter dem THEN folgt (oben: Sprung 
nach 30). Es können hier auch mehrere Anweisungen fol¬ 
gen, die dann wieder durch Doppelpunkte voneinander 
zu trennen sind. 

Ist die Bedingung hingegen nicht erfüllt, fährt die 
Programmabarbeitung beim unter dem IF folgenden Satz 
fort. 


Bei manchen Aufgabenstellungen ist es auch sinnvoll, 
bestimmte Programmteile ganz "auszulagern" (sog. 
Unterprogramme oder subroutines zu bilden), um diese 
bei Bedarf "anzuspringen". 

Dieser Ansprung erfolgt mit dem Statement GOSUB. 

Der Rücksprung erfolgt dann mit dem Statement RETURN 
an die Stelle des Hauptprogramms, die nach dem GOSUB 
folgt. 

30 PRINT TAB( 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / U.OOSS 1934" 
50 PRINT : PRINT TAB< 10)"1.4 - UNTERPROGRAMM" 

60 PRINT : PRINT : PRINT : PRINT 

70 GOSUB 1000: REM EINGABE 

SO I = 1: GOSUB 2000: REM DURCHSCHNITT 

90 GOSUB 1000 

1001=1+1: GOSUB 2000 

110 REM ETC. 

998 PRINT : PRINT : PRINT "ENDE" 

999 END 

1000 REM UP EINGABE 

1010 PRINT : PRINT : PRINT 

1020 INPUT "BITTE DREI WERTE : ";X,Y,Z 

1030 RETURN 

2000 REM UP DURCHSCHNITT 

2010 S = X + Y + 2 

2020 AM = S / 3 

2025 PRINT : PRINT : PRINT 

2030 PRINT I;" .MITTELWERT : ";AM 

2040 RETURN 
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1.6 Programmschleifen 

Den mehrfachen Durchlauf bestimmter Programmteile 
kann man sehr einfach auch mit den Statements FOR... 
TO und NEXT erreichen, wie das folgende Beispiel 
illustriert: 


Beispiel: 


30 PRINT TAB< 9)"APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB( 9)"R.PRUST / W.OOSS 1984" 

50 PRINT ; PRINT TAB< 12)“1.5 - SCHLEIFE“ 

60 PRINT ; PRINT 

70 FOR I = 1 TO 12 

80 PRINT I,I * I 
90 NEXT I 

100 PRINT : PRINT “ENDE“: END 


Auch hier werden die natürlichen Zahlen von 1 bis 20 
und ihre Quadratzahlen ausgegeben. 

Zusätzlich kann das FOk...TO-Statement mit einer Schritt¬ 
weite versehen werden, wenn man von der Schrittweite 1 
abweichen möchte: 


10 FOR 1=1 TO 10 STEP 0.4 
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1.7 Dateneingabe 

Die Informationseingabe über das LET- oder das INPUT- 
Statement ist für große Datenbestände umständlich. 

Besser dafür geeignet sind das DATA- im Zusammenwirken 
mit dem READ-Statement, insbesondere dann, wenn zu¬ 
sätzlich das DIM-Statement verwendet wird. 

Mit dem DIM-Statement werden für den (oder die) ge¬ 
nannten Variablennamen mehrere Speicherstellen von vorn¬ 
herein freigehalten; 

10 DIM X(20),Y(15) : Für X werden 21, für 

Y 16 Speicherstellen re¬ 
serviert . 

Mit dem DATA-Statement werden Daten bereitgestellt, 
mit dem READ-Statement werden sie durch den Rechner ge¬ 
lesen. 

Dazu folgendes Beispiel; 


30 PRINT TAB< 9)"APPLE-TI PS UND TRICKS" 

40 PRINT ; PRINT ; PRINT TÄB< 9>"R.PRUST / W.COSS 1984" 

50 PRINT : PRINT TAB( 13)"1.6 - DATEN" 

60 PRINT : PRINT 

70 DIM X(15) 

80 DATA 88,66,77,75,63,69,84,87,72,79,75,78,74,91,83 

90 FOR I = i TO 15; READ Xd): NEXT I 
100 PRINT "KONTROLLE : PRINT 

110 FOR I = 1 TO 15; PRINT Xd);" ";; NEXT I: PRINT ; PRINT 

120 REM WEITERE DATENVERARBEITUNG 

130 PRINT ; PRINT ; PRINT "HIER KANN NUN DIE WEITERE DATENVERAR 
140 PRINT "BEITLING ANGESCHLOSSEN WERDEN." 

150 PRINT ; PRINT ; PRINT "ENDE": END 
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In dieser Anweisungsfolge nennt man X(I) eine indi¬ 
zierte Variable; die einzelnen gelesenen Werte sind 
unter den Namen X(0), X(1 ),... ansprechbar. 

Variablen können auch mehrfach indiziert werden. 

Im folgenden Beispiel wird eine doppelte Indizierung 
verwendet: 


30 

PRINT 

TAB( 9) 

"APPLE-TIP3 UND 

TRICK3" 

40 

PRINT 

: PRINT 

; PRINT TAB< 9) 

"R.PRU3T / W.L'OSS 

50 

PRINT 

; PRINT 

TABC 12)"1.7 - 

SCHACHTEL" 

60 

PRINT 

: PRINT 



70 

DATA 

172,68 



80 

DATA 

183,35 



90 

DATA 

180,81 



100 

DIM X(3,-2) 



110 

FOR I 

= 1 TO 

3 


120 

FOR J 

= 1 TO 

O 


130 

READ 

X<I,J> 



140 

NEXT 

J 



150 

NEXT 

I 




160 PRINT : PRINT '‘KONTROLLE : PRINT 

170 FOR I = 1 TO 3 

ISO FOR J = 1 TO 2: PPINT X<I,J);" NEXT J: PRINT ; PRINT 

190 NEXT I 

200 PRINT : PRINT "HIER KOENNEN NUN WEITERE DATENL'ERARBE I -" 
210 PRINT "TUNG33CHRITTE ANGE3CHL03SEN WERDEN." 

220 PRINT : PRINT "ENDE": END 
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In obigem Beispiel werden 4+3=12 Speicherstellen re¬ 
serviert. Die einzelnen Felder heißen X(0,0),X{0,^, 
X(0;2),X(1,0),.. . 

Der erste Index ist der sog. Zeilenindex, der zweite 
der Spaltenindex. 

Es ist dabei zu beachten, daß per READ nicht mehr Wer¬ 
te gelesen werden können, als in den DATA-Statements 
bereitstehen, wohl aber weniger. 

Eventuell folgende READ-Anweisungen fahren in der 
DATA-Liste dort fort zu lesen, wo die vorhergehende 
aufgehört hat. 

Soll ein Datenbestand durch folgende READ-Statements 
wieder von Anfang an gelesen werden, so ist vorher das 
Statement RESTORE zu benutzen. 
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1,8 _ Stringbearbeitungsfunktionen 

Ein " String " ist eine Zeichenfolge oder Zeichen¬ 
kette, in der Buchstaben, Ziffern oder Sonderzeichen 
stehen können. Derartige Strings werden in BASIC in 
Anführungszeichen eingeschlossen. 

Mit Hilfe der logischen Vergleichsoperatoren (<, >, = , 

<=, >=) können Strings hinsichtlich ihrer alphabeti¬ 
schen Aufeinanderfolge miteinander verglichen werden. 

Mit Hilfe des Pluszeichens (+) können einzelne Strings 
zu neuen Gesamtstrings verkettet werden. 

Es stehen darüber hinaus eine Reihe von Funktionen 
zur Verfügung, mit deren Hilfe Strings be- und verar¬ 
beitet werden können. Diese Funktionen sollen hier kurz 
vorgestellt werden, wobei auf Anwendungsbeispiele ver¬ 
zichtet wird (sie finden sich zur Genüge in den späte¬ 
ren Kapiteln). 

LEN ; Diese Funktion bestimmt die Länge eines 

Strings, also die Anzahl der Zeichen in 
der Zeichenkette. 

Beispiel: L=LEN("HALLO") ergibt im Feld 
L den Wert 5. 

VAL : Diese Funktion spaltet führende Ziffern 

eines Strings ab. 

Beispiel: V=VAL("4600 DORTMUND") er¬ 
gibt im Feld V den Wert 4600. 




24 


STRJ! : 

Diese Funktion verwandelt eine Fol¬ 
ge von Ziffern in einen String. 

Beispiel: AJg=STR$ (4 600) ergibt in 

Feld A0 den String "4600". 

LEFT$ : 

Diese Funktion spaltet von einem 

String, der als erstes Argument zu 
nennen ist, so viele Zeichen von links 
beginnend als Teilstring ab, wie im 
zweiten Argument verlangt wird. 

Beispiel: B0=LEFT0("OSTERN",3) ergibt 
in Feld B0 den String "OST". 

RIGHTf!: 

Entsprechend von rechts beginnend. 

Beispiel: C0=RIGHT0("W.VOSS",4) er¬ 
gibt in Feld C0 den String 
"VOSS". 

MID{! : 

Diese Funktion hat drei Argumente: 

1. Den zu behandelnden String; 

2. Nummer des Symbols, bei dem die 
Abspaltung beginnen soll; 

3. Zah]^ der Symbole, die abgespalten 
werden. 

Beispiel; D0=MID0("HALLO",3,2) er¬ 
gibt in Feld D0 den String 
"LL". 

ASC : 

Diese Funktion bestimmt die Codeziffer 
des ASCII-Code für das Zeichen, welches 
als Argument genannt wird. 

Beispiel: X=ASC("A") ergibt den Wert 

65 in Feld X. 

CHR3 : 

Diese Funktion ermittelt zu einer 
als Argument eingegebenen Codezahl 
(s.o.) das entsprechende Symbol. 

Beispiel: A0=CHR0(66) ergibt in 

Feld A^ den String "B". 
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1.9 Benutzung von Disketten 

Disketten eignen sich hervorragend dazu, Programme 
und/oder Datenbestände auf Dauer zu speichern. 

"Fabrikneue" Disketten müssen allerdings zunächst 
initialisiert (oder formatiert ) werden. Man geht dabei 
folgendermaßen vor: 


1. Einlegen der Betriebssystemdiskette in 
das Laufwerk (DOS-Master-Diskette); 

2. Einschalten des Rechners; 

3. Einlegen der neuen Diskette; 

4. Eingabe z.B. folgenden Programms: 


30 PRINT TAB( 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT, TAB< 9)"R.PRUST / Ul.COSS 1984" 
50 PRINT ; PRINT TAB< 9)"1.8 - INITIALISIERUNG" 

60 PRINT ; PRINT 

70 REM ************************* 

SO REM INHALT DES INITIALISIERUNGSPROGRAMMS 

90 PRINT "INHALT DES INITIALISIERUNGSPROGRAMMS PRINT 

PRINT 

100 PRINT "DISKETTE NR. 1" 

110 PRINT "L'OSS, MAI 1984" 

120 END 


5. Eingabe des Kommandos 
INIT Name 

An der Stelle Name muß ein Programm¬ 
name, z.B. PI oder dergl., eingegeben 
werden. 

Anmerkung: Jedes Programm, das auf einer Diskette ge¬ 
speichert wird, muß einen Namen erhalten. 

Wir nennen ihn den Date?-Namen. 
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i Achtung : Während die Lampe brennt, darf die 
Laufwerkstür nicht geöffnet werden! 


Auf die nun initialisierte Diskette können Programme 
aus dem Programmspeicher übertragen werden. 

Dazu dient das Kommando SAVE. 

Beispiel: 

SAVE PROGRl 

Soll entsprechend dieses Programm später einmal von 
der Diskette gelesen werden, benötigen wir: 

' . LOAD PROGRl 

Wollen wir wissen, welche Dateien auf einer Diskette 
gespeichert sind, so erhalten wir ein "Inhaltsverzeich¬ 
nis" mit dem Kommando 

CATALOG 

Soll eine bestimmte Datei gelöscht werden, so geben 
wir ein: 

DELETE Dateiname 

Manchmal ist es auch sinnvoll, bestimmte Dateien umzu¬ 
benennen: 


RENAME alter Name, neuer Name 
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1.1o Ergänzungen 

Erzeugt ein Prograinin sehr viele Ergebnisse, so wan¬ 
dern diese über den oberen Bildschirmrand hinaus. 

Dies kann man verhindern, wenn man an passenden Pro¬ 
grammpositionen dafür sorgt, daß es anhält. 

Dazu dient die Anweisung 

STOP 

Ein per STOP-Anweisung angehaltenes Programm kann mit 
dem schon genannten Kommando CONT wieder in Gang ge¬ 
setzt werden. 

Beispiel; 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< y)"R.PRUST / W.OOSS 1984" 

50 PRINT : PRINT TAB< 15)"1.9 - STOP" 

60 PRINT : PRINT 

70 FOR I = 1 TO 35 

SO Q = I * I; PRINT I,Q 

90 IF I / 10 = INT <I / 10) THEN PRINT "BITTE CONT EINGEBEN" 
STOP 

100 NEXT I 

110 PRINT "ENDE": END 
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In ähnlicher Weise kann z.B. die GET-Anweisung verwen¬ 
det werden. Wird sie erreicht, so wird die Programm- 
abarbeitung eingestellt und der Rechner erwartet eine 
Tasteneingabe. 


Beispiel: 


30 PRINT TAB( 9)"APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB( 9>"R.PRUST / Ul.'JOSS 1984" 

50 PRINT : PRINT TAB( 13)"1.10 -WARTEN" 

60 PRINT : PRINT : PRINT "ICH WARTE.": PRINT : PRINT "BITTE 
EINE TASTE DRUECKEN !": PRINT : PRINT : PRINT 
70 GET A^; IF A^ = "" THEN 70 

SO PRINT : PRINT : PRINT "TASTE ";A$;" WURDE 6EDRUECKT." 

90 PRINT ; PRINT "JETZT KANN ES WEITERGEHEN." 

100 REM WEITERES PROGRAMM 
110 PRINT : PRINT "ENDE"; END 
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Schließlich soll auf die HOME-Anweisung hingewie¬ 
sen werden. Sie bewirkt, daß der Cursor nach links 
oben geschickt (HOME-Position) und der Bildschirm 
gelöscht wird. Vor den Ergebnisdarstellungen ist dies 
ein recht nützlicher Schritt. 

Ähnliche Wirkung haben die Anweisungen VTAB und 
HTAB: 


VTAB Z bewirkt, daß das folgende PRINT zur Ausgabe in 
Zeile Z führt; HTAB S bewirkt Ausgabe in Spalte S. 


1.11 Abschlußbeispiel 

Mit einem umfangreicheren Beispiel soll dieses Kapitel 
beschlossen werden, um das Zusammenwirken der wich¬ 
tigsten BASIC-Sprachelemente zusammenfassend zu illu¬ 
strieren. 


Aufgabenstellung 

Es soll ein BASIC-Programm entwickelt werden, welches 
einen beliebigen Datenbestand der Größe nach sortiert. 
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Problemanalyse 

Der Rechner kann nur zur Lösung solcher Probleme 
eingesetzt werden, die wir im Kopf quasi schon ge¬ 
löst haben. Das soll heißen, daß uns der Lösungs¬ 
weg klar sein muß, bevor ein problemlösendes Pro¬ 
gramm geschrieben werden kann. 

Diese notwendige Vorstrukturierung des Problems nennt 
man Problemanalyse. Sie erstreckt sich bei dieser 
Aufgabenstellung insbesondere auf die Frage, wie der 
eigentliche Sortierprozeß, also der "Kern" des zu 
entwickelnden Programms ablaufen muß. Am Beispiel 
eines "Spieldatenbestands" kann diese Analyse vorge¬ 
führt werden. 

" Sortieren " bedeutet, daß wir je zwei Werte aus dem 
Datenbestand miteinander vergleichen: 

Wir vergleichen den ersjten Wert Schritt für Schritt 
mit allen übrigen. Ist dabei der erste Wert größer 
als einer der Vergleichswerte, so müssen beide mit¬ 
einander vertauscht werden. 

Dadurch wird erreicht, daß dann, wenn der erste Wert 
mit allen übrigen verglichen wurde (nach der 1. Runde), 
an der ersten Stelle nun der insgesamt kleinste Wert 
steht. 

Dann vergleichen wir den jetzt an zweiter Stelle ste¬ 
henden Wert mit allen übrigen, außer mit dem ersten 
Wert . Ist der zweite Wert größer als einer der Ver- 
.gleichswerte, so wird wieder getauscht. 
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Dadurch wird erreicht, daß am Schluß dieser zweiten 
Vergleichsrunde an der 2. Stelle der zweitkleinste 
Wert steht. 

Dann vergleichen wir den jetzt an dritter Stelle 
stehenden Wert mit allen übrigen, außer mit denen, 
die schon auf der ersten und auf der zweiten Stelle 
stehen. Am Ende dieser dritten Runde haben wir den 
drittkleinsten Wert gefunden und auf die dritte Stel¬ 
le gesetzt. 

Auf diese dritte Runde folgen so lange weitere Ver¬ 
gleichsrunden wie Vergleiche möglich sind: 

Haben wir beispielsweise vier Werte, so müssen drei 
derartige Run<3en durchlaufen werden. In der ersten 
Runde gibt es drei Vergleiche, in der zweiten Runde 
zwei Vergleiche und in der dritten Runde noch einen 
Vergleich. 

Schematisch sieht dies folgendermaßen aus: 


1. Runde; Vergleich 1 
Vergleich 2 
Vergleich 3 


Feld 1 mit Feld 2 
Feld 1 mit Feld 3 
Feld 1 mit Feld 4 


2. Runde; 


Vergleich 1: Feld 2 mit Feld 3 
Vergleich 2: Wert 2 mit Feld 4 


3. Runde: 


Vergleich 1: 


Feld 3 mit Feld 4 
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Es ist dabei zu beachten, daß die Inhalte der Fel¬ 
der immer andere sein können, je nachdem, ob und 
an welchen Stellen getauscht wurde. 


Programmablauf 


Den Programmablauf kann man sich am besten verdeut¬ 
lichen, wenn man sich "Spieldaten" vorgibt: 

Zu sortieren sei beispielsweise der folgende Daten¬ 
bestand, der fünf Daten umfaßt: 



Die fünf Positionen, in denen sich diese fünf Werte 
befinden (die fünf "Kästchen" oben), sollen im fol¬ 
genden als Felder bezeichnet werden. 
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1. Runde (1=1) 


vorher 


Vergleich 1 (J=2) 
(Feld 1 mit Feld 2) 


Vergleich 2 (J=3) 
(Feld 1 mit Feld 3) 

Vergleich 3 (J=4) 
(Feld 1 mit Feld 4) 


Vergleich 4 (J=5) 
(Feld 1 mit Feld 5) 



2. Runde (1=2) 


Vergleich 1 (J=3) 
(Feld 2 mit Feld 3) 

Vergleich 2 (J=4) 
(Feld 2 mit Feld 4) 

Vergleich 3 (J=5) 
(Feld 2 mit Feld 5) 


3 

6 

5 

9 

7 


3 

5 

6 

9 

7 


3 

5 

6 

9 

7 


nachher 


3 6 5 9 7 


3 6 5 9 7 


3 6 5 9 7 


3 6 5 9 7 

Ausdruck X(1)=3 


3 5 6 9 7 


3 5 6 9 7 


3 5 6 9 7 


Ausdruck X(2)=5 
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3. Runde (1=3) 

Vergleich 1 (J=4) 
(Feld 3 mit Feld 4) 

Vergleich 2 (J=5) 
(Feld 3 mit Feld 5) 


4. Runde . (1=4) 

(= letzte Runde) 

Vergleich 1 (J=5) 
(Feld 4 mit Feld 5) 


vorher 



3 5 6 9 7 


nachher 


3 

5 

6 

9 

7 


0 

5 

6 

9 

7 

Ausdruck X 

(3) = 


3 

5 

6 

7 

9 


Ausdruck X(4)=7 


Beendigung der I-Schleife; 


Ausdruck X(5)=9 
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Flußdiagramm 

Der geplante Programmablauf läßt sich sehr anschau¬ 
lich durch ein Flußdiagramm (Programmablaufplan) 
darstellen, das die Abfolge der einzelnen Programm¬ 
schritte vorzeichnet (auch bei anderen Aufgabenstel¬ 
lungen ist die Entwicklung eines solchen Flußdia¬ 
gramms empfehlenswert). 

In diesem Fall sieht das Flußdiagramm folgendermaßen 
aus: 
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Ausgabe 
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Teilproblem ; Zählen von Daten 


(die Zahl -999 markiere aas Ende des 
Datenbestandes) 
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Teilproblein : Sortieren 


(N = Anzahl der Werte) 
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Programm 


30 

40 

50 

60 

70 

SO 

90 

100 

110 

120 

130 

140 

I 11 

150 
1 60 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2S0 
290 
295 
300 
310 
320 
330 
340 
350 
360 
500 
510 
520 
530 


PRINT TAB( 9>"APPLE-TIPS UND TRICKS" 

PRINT : PRINT : PRINT TAB< 9)"R.PRUST / Ul.COSS 1984" 
PRINT : PRINT TAB< 11)"1.11 - SORTIEREN" 

PRINT : PRINT : PRINT : PRINT 

PRINT "DAS FOLGENDE PROGRAMM SORTIERT EINEN " 

PRINT "BELIEBIGEN DATENBESTAND DER GROESSE" 

PRINT "NACH.": PRINT 

PRINT "DIE DATEN WERDEN UEBER DATA EINGEGEBEN" 

PRINT "(STATEMENTS 500 FF.).": PRINT 

PRINT "DIE LETZTE ANGABE MUSS EIN UNREALI STI-" 

PRINT "SCHER WERT SEIN (HIER Z.B. -1)." 

PRINT : PRINT : PRINT TAB( 6)"BITTE EINE TASTE DRUECKEN 

GET A^: IF Af- = " " THEN 150 
HOME 

REM ZAEHLEN DER DATEN 

FOR I = 1 TO 9999: READ Z: IF Z = - 1 THEN 200 

NEXT I 
N = I - 1 

PRINT "ANZAHL DER WERTE = ";N 
REM LESEN DER DATEN 
RESTORE 
DIM X(N) 

FOR I = 1 TO N: READ X(I): NEXT I 
REM KONTROLLAUSDRUCK 

PRINT : PRINT : PRI/nIT "KONTROLLE : ": PRINT 
FOR I = 1 TO N: PRINT X(I);" ";: NEXT I: PRINT 

REM SORTIEREN UND AUSGABE 
PRINT : PRINT : PRINT 
PRINT : PRINT "SORTIERT : ": PRINT 
FOR I = 1 TO N - 1: FOR J = I + 1 TO N 
IF X(I) < X(J) THEN 340 
H = X(I):X(I) = X(J):X(‘J) = H 
NEXT J: PRINT X(I);" "; 

NEXT I: PRINT X(I) 

PRINT : PRINT : PRINT "ENDE DER AUSGABE": END 

REM DATEN 

DATA 7,3,2,9,8,1,4 

DATA -1 

END 
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Dieses Beispiel zeigt recht anschaulich, wie ein 
noch recht einfaches und überschaubares Problem so 
aufbereitet werden kann, daß es durch einen Computer 
erledigt werden kann. 

Noch einmal sei daran erinnert, daß wir weder auf 
möglichst hohe "Programmeleganz" noch auf hohe Re¬ 
chengeschwindigkeit Wert gelegt haben. 

Dies wird auch in den folgenden Kapiteln nicht der 
Fall sein. 
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Kapitel 2: Die Nutzung peripherer Geräte 


2,1 Vorbemerkungen 

Wer sich einen Kleinrechner kauft, begnügt sich häufig 
zunächst - nicht zuletzt aus finanziellen Gründen - 
mit der Zentraleinheit selbst, die ja beim APPLE die 
Eingabetastatur mit einschließt, und dem Bildschirm 
als Ausgabeeinheit. 

Nach kurzer Zeit aber wird man feststellen, daß als 
zusätzliches Ausgabegerät ein Drucker und als peri¬ 
pheres (externes) Speichergerät wenigstens ein Disket ¬ 
tenlaufwerk unentbehrlich sind. 

Damit nämlich eröffnen sich vielfältige zusätzliche 
Möglichkeiten der Computernutzung, von denen einige 
hier angesprochen werden sollen. 


2.2 Der Drucker 


Schließt man an den Rechner beispielsweise einen 
Drucker an, so kann man Programmlisten und/oder Pro¬ 
grammergebnisse "schwarz auf weiß nach Hause tragen". 

Beim APPLE-Computersystem muß dazu die zu dem Drucker 
gehörende Drucker-Steuerkarte in den Slot 1 einge¬ 
steckt werden (Installationshinweise beachten!). 
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Entsprechende Steckkarten werden auch für andere 
periphere Geräte notwendig. Man bezeichnet diese 
Steckkarten mit der dazugehörigen 
"Schnittstellen" (Interfaces). 

Beim Übergang von Informationen vom Rechner zu einem 
peripheren Gerät (oder umgekehrt) ist im Direktmodus 
das Kommando 


PR# Zahl 


zu benutzen, wobei an der Stelle Zahl die Nummer des 
jeweiligen Kartensteckplatzes einzufügen ist. 

Im Programm-Modus ist die Ansteuerung des Gerätes 
etwas umständlicher: 

Die Anweisung PR#^ 1 (bezogen auf Slot 1) wird dann 
innerhalb einer PRINT-Anweisung verwendet, in der außer¬ 
dem das Symbol aufgenommen wird, welches durch die Ta¬ 
stenkombination 


CTRL und 



zustandekommt 


Dies ist ein Zeichen, das auf dem Bildschirm nicht er¬ 
scheint. 
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Ein entsprechender Programmanfang könnte folgender¬ 
maßen aussehen: 


10 D$ ="" Zwischen den Anfüh¬ 

rungszeichen steht 
das nichtdruckende 
Zeichen 

CTRL-D 

20 ?D0;"PRtt1" 


Alle nun nachfolgenden PRINT-Anweisungen führen 
zum Drucker, wenn das Drucker-Interface in Slot 1 
steckt. 

Bevor wir an geeigneten Beispielen diese Anweisungen 
näher betrachten, ist zu unterscheiden, ob der Druk- 
ker zur Ausgabe von Programmen oder von Programmer¬ 
gebnissen benutzt werden soll. Im ersten Fall arbei¬ 
ten wir im Kommando-Modus, im zweiten Fall im Pro¬ 
gramm-Modus . 

2.2.1 Ausgabe von Programmen 

Durch geeignete Kommandos, die oben schon vorgestellt 
wurden, werden Programme statt auf dem Bildschirm auf 
dem Drucker gelistet. 


Diese Kommandofolge lautet; 
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PR 4 1 
LIST 
PR# 0 

Es gibt hier also keine besonderen Schwierigkeiten 
oder Besonderheiten, die zu beachten wären. 


2,2.2 Ausgabe von Programmergebnissen 

Wie schon erwähnt, ist jetzt die Anweisung PR#1, 
zusammen mit f CTRL| und 0 in eine PRINT-Anweisung 
aufzunehmen. 


Das folgende Beispiel illustriert die Vorgehensweise; 


30 

PRINT 

TAB< 9>"APPLE-TIPS UND 

TRICKS" 

40 

PRINT 

; PRINT ; PRINT TAB( 9) 

"R.PRUST 

50 

PRINT 

: PRINT TAB< 12)"2.1 - 

DRUCKER" 

60 

PRINT 

: PRINT : PRINT : PRINT 


70 

= •' '• 

: REM CTRL UND D 


SO 

PRINT 

DS;"PR#1" 


90 

PRINT 

"DIESER TEXT WIRD UEBER 

DEN" 

100 

PRINT 

"DRUCKER AUSGEGEBEN." 


110 

PRINT 

D^;"PRttO" 


120 

END 




Nähere Erläuterungen dürften entbehrlich sein. 
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2.2,3 Graphiken 

Die Graphiken, die wir mit dem APPLE erzeugen können 
(vergl. Kap. 4), sollen bei Bedarf auch über den Druk- 
ker festgehalten werden können. 

Bei modernen Matrixdruckern ist dies kein Problem, 
da jeder einzelne Bildschirmpunkt auch einzeln dar¬ 
stellbar ist, so daß beispielsweise Bilder folgender 
Art möglich sind: 
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Allerdings ist die Programmierung solcher Drucker¬ 
ausgaben recht aufwendig - eigentlich so aufwendig, 
daß sie sich kaum lohnt. 

Der Aufwand, der hier betrieben werden muß, darf nicht 
verwechselt werden mit der Erzeugung von Graphiken auf 
dem Bildschirm, die in Kap. 4 besprochen werden. 

Dabei treten keine besonderen Probleme auf, weil es 
eine Reihe von Anweisungen gibt, die die Programmie¬ 
rung von Graphiken wesentlich erleichtern und ohne 
allzu großen Aufwand ermöglichen. 

Anders hingegen ist es bei der Graphikausgabe auf dem 
Drucker; Hier müssen die einzelnen Positionen auf dem 
Druckerpapier, die bedruckt werden sollen - eine solche 
Druckgraphik ist ja letzten Endes nichts anderes als 
eine mehr oder weniger regelmäßige Anhäufung schwarzer 
Punkte - auf sehr umständliche Weise festgelegt wer¬ 
den. Man muß dabei mit hexadezimal verschlüsselten 
Adressen arbeiten, man muß die Speichereinteilung im 
Kopf haben usw. 

Es empfiehlt sich deshalb, Hilfsprogramme oder Hard¬ 
ware-Ergänzungen einzusetzen, die diese organisatori¬ 
schen Aufgaben erledigen. 

Es steht für den APPLE eine "Parallel Drucker Inter¬ 
face Karte" zur Verfügung, die außerordentlich ange¬ 
nehme Eigenschaften hat: 

Diese Karte erlaubt nämlich sowohl die Textausgabe wie 
auch eine komfortable Gestaltung der Ausgabe hochauf¬ 
lösender Graphik (vergl. dazu Kap. 4). 
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Die Karte ist in Steckplatz 1 einzustecken (Be¬ 
dienungshinweise beachtenI) und mit dem Drucker zu 
verbinden. 


Kommandos, die sich an diese Karte richten, sind 
mit der 


CTRL -Taste einzuleiten. 


Soll hingegen diese Karte während eines Programmlaufs, 
also nicht im Kommandomodus (Direktmodus) angesprochen 
werden, ist mit der CHR$-Funktion zu arbeiten. 

Das voreingestellte Steuervort ist CTRL - I; dem ent¬ 
spricht die Anweisung 


PRINT CHRg5(9) 


Die wesentlichen Anweisungen für die Ausgabe von Texten 
sind die folgenden; 


PR# 1 


Einschalten des Interface 


PR4 0 


Ausschalten des Interface 


CTRL-I80N 


CTRL-I I 


Druckerzeilenlänge wird auf 80 
Zeichen eingestellt (es können 
alternative Zahlenwerte eingege¬ 
ben werden). 

Wird 00 eingegeben (an der Stelle, 
an der jetzt 80 steht), wird diese 
Funktion abgeschaltet. 

Als Programmzeile könnte diese An¬ 
weisung folgendermaßen aussehen: 

10 PRINT CHR0(9);"80N" 

Alle Zeichen werden auf dem Bild¬ 
schirm und auf dem Drucker ausgege¬ 
ben . 
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CTRL-I5L 

; Es wird ein linker Rand von 

5 Zeilen gelassen (alternativ 
besetzbar). 

CTRL-I70R 

: Ab der 70. Spalte wird auf Leer¬ 

zeichen geachtet. Wird ein Leer¬ 
zeichen entdeckt, erfolgt ein Zei 
lenvorschub (der Wert 70 ist aus¬ 
tauschbar) . 

CTRL-I60P 

: Es werden 60 Zeilen pro Seite aus 

gegeben (alternativ besetzbar), 
dann folgen automatisch 6 Zeilen¬ 
vorschübe (abschalten durch 00). 

CTRL-IS 

: Druckt den Textinhalt des Bild¬ 

schirms » 


Dazu ein einfaches Illustrationsbeispiel 


80 

PR« 1 


90 

PRINT CHR« (5’);"50N" 


95 

PRINT CHR* <P);"20L" 


97 

PRINT CHR* <9);''r' 


100 

PRINT “DIESES PROGRAMM 

ZEIGT 


, IN WELCHER WEISE DIE 
ER-INTERFACE-KARTE," 

DRUCK 

110 

PRINT “ÜBER DIE OBEN GESPROC 


HEN WURDE, BENUTZT WERDEN KA 
NN“ 

120 

PRINT : PRINT ; PRINT 
"ENDE": END 

; PRINT 

130 

PR# 0 



Ergebnis ; 


DIESES PROGRAMM ZEIGT, IN UELC 
HER WEISE DIE DRUCKER-INTERFA 
CE-KARTE, 

ÜBER DIE OBEN GESPROCHEN WURDE 
, BENUTZT WERDEN KANN 


ENDE 
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Der Leser gebe nach Ablauf dieses Programms das 
Kommando: 


CTRL - I S 

Was geschieht? 


Die wesentlichen Anweisungen für die Graphik -Ausgabe 
sind die folgenden: 

Der Inhalt des Graphikspeichers des APPLE kann - wie 
schon erwähnt - über diese Interface-Karte direkt 
ausgegeben werden. Dazu benötigen wir lediglich die 
Anweisung 


CTRL - I und "G" plus Argument 

also z.B. als Kommando oder Programm-Statement: 

(nn) ?CHR^(9);"G Argument" 

Als Argument kommt in Frage (diese Aufzählung ist nicht 
vollständig, sondern berücksichtigt nur die interessan¬ 
testen Möglichkeiten): 
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2: Ausdruck der zweiten Bildschirm¬ 

seite (Voreinstellung: erste Seite); 

D: Ausgabe der Graphik in doppelter 

Größe; 

I: Invertieren der Graphik (Voreinstel¬ 

lung: weiße Bildschirmpunkte werden 
schwarz gedruckt); 

R: Drehung der Graphik um 9o^; 

A: Verknüpfung (AND) beider Bildschirm¬ 

seiten (s. Kap. 4 zur näheren Erläu¬ 
terung) . 


Es ist bei diesen Anweisungen zu beachten, daß ein 
RESET notwendig wird, wenn der Drucker bei einer be¬ 
stimmten Arbeit mit dem Platz nicht auskommt. 

Auf ein Beispiel zur Benutzung dieser Anweisungen zur 
Graphikausgabe auf dem Drucker soll hier verzichtet 
werden. Wir kommen in Kap. 4 darauf zurück, wo es aus¬ 
schließlich um die Graphikmöglichkeiten des APPLE geht. 


2,3 Diskettenlaufwerk 


2.1.1 Vorbemerkungen 

Der wesentliche externe Speicher bei Mikrocomputer- 
Systemen sind die Disketten, die auf den dazugehö¬ 
rigen Diskettenlaufwerken beschrieben und gelesen 
werden können. 

Im Gegensatz zu manchen anderen Computersystemen, haben 
die APPLE-Diskettenlaufwerke keinen eigenen Stroman¬ 
schluß, sondern werden über die Stromversorgung des Rech¬ 
ners mit bedient. Dies bedeutet, daß beim Einschalten 
des Rechners auch das Laufwerk anspringt. Dabei werden - 
sofern eine initialisierte Diskette eingelegt ist - die 
für die Diskettenverwaltung notwendigen Teile des Be¬ 
triebssystems geladen, so daß sofort mit der (oder den) 
Diskette(n) gearbeitet werden kann. 

Man nennt diese Vorgehensweise den sog. "Kaltstart" des 
Systems. 

Ist keine oder eine nichtinitialisierte Diskette einge¬ 
legt, so ist das angesprungene Laufwerk mit der RESET- 
Taste zu stoppen, bevor mit dem Rechner gearbeitet werden 
kann. 

Das Diskettenlaufwerk kann für zwei verschiedene Auf¬ 
gabenstellungen verwendet werden; 
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1. Zum Speichern und/oder Wiedereinlesen von 
Programmen; 

2. Zur interaktiven Nutzung von Dateien (ins¬ 
besondere von Datenbeständen), d.h. also 
Diskettenzugriff vom laufenden Programm aus. 

Mit beiden Möglichkeiten wollen wir uns im folgenden 
kurz beschäftigen, bevor an einem ausführlichen Beispiel 
auf spezielle Tips beim Diskettenhandling eingegangen 
wird. 

Es ist bei der Benutzung von Disketten wichtig, von vorn¬ 
herein zwei Arten der Informationsspeicherung zu unter¬ 
scheiden: 

1. Sequentielle Speicherung 

2. Random access Speicherung 

Die Erläuterung dieser Begriffe muß am Begriff der Da¬ 
tei ansetzen, was uns Gelegenheit bietet, einige Grund¬ 
begriffe der Datenverarbeitung kurz zu skizzieren: 

Man stelle sich eine Fragebogenerhebung vor, bei der die 
Befragten zu folgenden Sachverhalten um Auskunft gebeten 
wurden: 

1. Geschlecht 

2. Geburtsjahr 

3. Familienstand 


etc. 
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Der sich ergebende Datenbestand läßt sich in Form 
einer Datenmatrix darstellen: 


Person Nr. 

Geschlecht 

Geburtsjahr 

Familienstand 


001 

männlich 

1942 

verheiratet 


002 

weiblich 

1953 

ledig 

... 

003 

männlich 

1963 

ledig 

. . . 

004 

männlich 

1958 

verheiratet 



Alle weiteren Datenverarbeitungsprozesse können an die¬ 
ser Datenmatrix ansetzen, wobei es gleichgültig bleibt, 
ob wir die einzelnen Angaben wie vorliegend verwenden, 
oder ob sie, soweit dies möglich ist, in numerische 
Werte transformiert werden (z.B. "männlich" = 0, "weib¬ 
lich" = 1 usw.). 

Jede Zeile einer solchen Matrix heißt Datensatz (kurz: 
Satz), bzw. record, set oder case. 

Jede Spalte heißt array. Der Kreuzungsbereich von einer 
Spalte und einer Zeile heißt Feld (field). 

In einem Feld finden wir also die Ausprägung einer Va¬ 
riablen für einen Merkmalsträger (z.B. für eine Person). 
Ein Feld umfaßt mehrere Symbole (mindestens eines), wo¬ 
bei für jedes Symbol ein byte im Rechner reserviert wird. 

Die Summe aller Zeilen (bzw. Spalten) der Datenmatrix 
nennt man Datei (file). 
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Bei der sequentiellen Speicherung wird innerhalb der 
Datei (bei der es sich beispielsweise um einen Daten¬ 
bestand handeln mag) Datensatz an Datensatz gehängt, 
also zum Beispiel Kundenadresse an Kundenadresse: 

Eine lange Adresse nimmt viel Platz in Anspruch, eine 
kurze hingegen wenig. 

Schematisch sieht dies folgendermaßen aus (Dl, D2, D3, 
... sind die verschiedenen Datensätze, also z.B. Adres¬ 
sen) : 



Bei der sequentiellen Speicherung erfordert das Auf¬ 
suchen eines ganz bestimmten Datensatzes (z.B. die 
Adresse von Herrn Müller-Lüdenscheid) viel Zeit, weil 
dazu die Datei von ihij-em Startpunkt an durchsucht wer¬ 
den muß (sie wird "gespult"). 

Bei der random access-Speicherung (man spricht auch 
von "Speicherung mit direktem Zugriff" ; random access = 
Zufallszugriff; ein etwas irreführender Name) hat je¬ 
der Datensatz die gleiche Länge. 

Schematisch sieht dies also folgendermaßen aus: 
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Auf diese Weise wird zwar Speicherplatz verschenkt 
(auch kurze Adressen beanspruchen viel Platz), aber 
der Rechner kann nun auf bestimmte Datensätze direkt 
zugreifen, ohne die davor befindlichen erst "wegspulen" 
zu müssen. Das Auffinden eines bestimmten Datensatzes 
dauert jetzt (bei der Benutzung eines Diskettenspei¬ 
chers) nur noch Bruchteile von Sekunden. 


2.3.2 Tips bei der Initialisierung 

In Kapitel 1 wurden schon die wesentlichen Disketten¬ 
anweisungen besprochen. Eine besondere Rolle spielte 
dabei das Kommando 
INIT 


Es dient dazu, neue Disketten zu formatieren, um sie 
im weiteren dann benutzen zu können. 

Diese Initialisierung kann man so gestalten, daß bei 
jedem Laufwerkstart mit dieser Diskette eine Bildschirm¬ 
ausgabe erfolgt, die über die eingelegte Diskette wis¬ 
senswerte Informationen mitteilt. Dazu müssen in das 
Initialisierungsprogramm entsprechende PRINT-Anweisungen 
aufgenommen werden. 
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2.3.3 Interaktive Diskettennutzung 


Einer der wesentlichen Vorteile der Computernutzung 
in der Datenverarbeitung besteht in der interaktiven 
Verwendung der externen Speicher. 

Wir verstehen darunter den Zugriff auf Dateien der Dis¬ 
kette vom laufenden Programm aus; sei es, daß sich ein 
Programm benötigte Inputinformationen von der Diskette 
holt; sei es, daß berechnete Ergebnisse aus dem laufen¬ 
den Programm heraus zur Archivierung oder zur weiteren, 
späteren Verwendung auf die Diskette geschrieben werden. 

Für diese Art der Diskettennutzung benötigt man zwei zu¬ 
sätzliche BASIC-Anweisungen, nämlich OPEN und CLOSE. 

Diese beiden Anweisungen dienen dazu, den Informations¬ 
austausch zwischen Rechner und externem Speicher zu regu¬ 
lieren, indem mit der OPEN-Anweisung der "Kanal" zur 
Diskette geöffnet und mit der CLOSE-Anweisung wieder ge¬ 
schlossen wird. Genau genommen geht es bei OPEN und bei 
CLOSE um das Öffnen und Schließen einer Datei (file), 
also eines Bereichs auf der Diskette, der einen zusam¬ 
mengehörigen Datenbestand umfaßt, und der vom Benutzer 
mit einem Namen versehen werden muß. 

Ein solcher Dateiname , der im Gegensatz zu vielen anderen 
Rechnern nicht in Anführungszeichen eingeschlossen wird, 
kann bis zu dreißig Zeichen lang sein. 

Das folgende schematische Beispiel zeigt, wie eine sol¬ 
che Datei beschrieben werden kann (wir greifen dabei auf 
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das Beispiel der Datenmatrix zurück, das weiter oben 
vorgestellt wurde): 


30 PRINT TAB< 9)“APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT ; PRINT TAB< 9>"R.PRUST / W.COSS 1984" 

50 PRINT ; PRINT TAB< 6)"2.2 - SCHREIBEN AUF DISKETTE" 

60 PRINT : PRINT : PRINT : PRINT 

80 PRINT "DIESES PROGRAMM ZEIGT, WIE EIN DATENBE-" 

90 PRINT "STAND < DATA IN 500 FF.) INTERAKT Uv» AUF" 

100 PRINT "EINE DISKETTE GESCHRIEBEN WERDEN KANN." 

120 GOSUB 1000: REM WARTEN 
130 REM EINLESEN 
140 N = 4 

150 DIM NR(N>,6^<N),J6<N>,F^<N) 

160 FOR I = 1 TO N: READ NR<I),G^<I),JG<I),F^<I); NEXT I 
170 HOME : PRINT "KONTROLLE : "; PRINT : PRINT 
180 FOR I = 1 TO N: PRINT NR<I); TAB( 5)G^<I); TAB< 15)JG<I); 
TAB< 22)F-$<I): NEXT I 
190 PRINT : PRIhTTs 
PRINT "GESCHRIEBEN. 


PRINT "ES WIRD JETZT AUF DIE DISKETTE 


200 

D^ = 

CHR-$ <4): 

REM CTRL UND D 

210 

PRINT 

D^;"OPEN 

DATEI 1" 

220 

PRINT 

D^;"WRITE 

DATEI 1" 

230 

FOR I 

= 1 TO N; 

PRINT NR(I),G^(I),JG(I),F^< I ) : NEXT 

240 

PRINT 

D^;"CLOSE 

DATEI 1" 

250 

PRINT 

: PRINT : 

PRINT "ENDE DER DATENUEBERTRAGUNG" 

260 

END 


, 

500 

DATA 

001»MAENNLICH,1942,VERHEIRATET 

510 

DATA 

002,WEIBLICH,1953,LEDIG 

520 

DATA 

00 3,MAENNLI CH,1962,LEDIG 

530 

DATA 

0 0 4,MAENNLI CH,1958,VERHEI RATET 

1000 

REM 

UP WARTEN 


1010 

1 » 

L»TAB 

23: HTAB 

6: INVERSE : PRINT "BITTE EINE TASTE 

1020 

NORMAL 


1030 

GET A$: IF A^ ^ 

= "" THEN 1030 

1040 

RETURN 
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In diesem Programm geschieht folgendes 


Sätze 

Inhalt 

30- 60 

Überschrift. 

80-100 

Erläuternder Text. 

120 

Sprung ins UP 1000 (Warteprogramm). 

140-160 

Einlesen der Daten (Angabe der Zahl der 
Datensätze + Leseschleife über je vier 
Variablen). 

170-180 

Kontrollausdruck der Daten. 

190 

Ankündigung der Übertragung auf die 

Diskette. 

200 

Einführung der Hilfsgröße D0 (der Druck 
der Tasten CTRL und D gemeinsam ent¬ 
spricht der ASCII-Codezahl 4; deshalb 
wird der Einfachheit halber CHR0(4) benutzt) 

210 

In einem String^ 

der der Anweisung PRINT D0 (s. 200) folgt, 
wird die Datei, in der die Daten eingefügt 
werden sollen, geöffnet. 

220 

In entsprechender Weise wird mitgeteilt, 
daß die Datei beschrieben (und nicht etwa 
gelesen) werden soll. 

230 

Schreibschleife (alle PRINT-Anweisungen 
gehen jetzt an die Diskette). 

2 40 

Schließen der Datei (vergl. 210) 

250-260 

Endausdruck und Ende. 

500-530 

Daten 

1000 

Überschrift Warteprogramm. 

1010 

Mitteilung an den Benutzer in inverser 
Schrift in Zeile 23 ab Spalte 6. 

1020 

Zurück von inverser zu normaler Schrift. 

1030 

Abwarten eines Tastendrucks. 

1040 

Rücksprung. 
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Entsprechend läßt sich auch ein einfaches Programm 
zum Lesen einer Diskettendatei schreiben: 


30 

PRINT 

TAB< 9)"APPLE-TIPS UND 

TRICKS" 



40 

PRINT 

: PRINT : PRINT TAB< 9>"R.PRUST / W. 

L'OSS 

1984" 

50 

PRINT 

: PRINT TAB( 6)"2.3 - 

LESEN L'ON DER 

DISKETTE" 

60 

PRINT 

: PRINT : PRINT : PRINT 



70 

DIM N^<4) 




80 

PRINT 

"DIESES PROGRAMM ZEIGT, 

WIE EIN DATENBE-" 


90 

PRINT 

"STAND UON EINER DISKETTE GELESEN WERDEN": 

PRINT 

TAB< 

17) '■ KANN. •' 




100 

REM 

SCHREIBEN 




110 

DATA 

OTTO,SUSI,BERTA,EMIL 




120 

FOR I 

= 1 TO 4: READ N$(I): 

NEXT I 



130 

= 

CHR-^ <4> 




140 

PRINT 

D$;"OPEN DATEI 2" 




150 

PRINT 

D-^;"WRITE DATEI 2" 




160 

FOR I 

= 1 TO 4: PRINT N*<I): 

NEXT I 



170 

PRINT 

D^;"CLOSE DATEI 2" 




190 

REM 

LESEN L>ON DER DISKETTE 




210 

PRINT 

D^;"OPEN DATEI 2" 




220 

PRINT 

D^;"READ DATEI 2" 




230 

FOR I 

= 1 TO 4: INPUT A^:N^-<I> = A^: NEXT 

I 


240 

PRINT 

DS;"CLOSE DATEI 2" 




250 

HOME 

: PRINT "KONTROLLE : ": 

PRINT : PRINT 


260 

FOR I 

= 1 TO 4 f 




270 

PRINT 

N^< I ) 




280 

NEXT 

I 




290 

PRINT 

; PRINT : PRINT "ENDE 

DER AUSGABE": 

END 
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Prograimnbeschreibung 


Sätze 

Inhalt 

30- 60 

Überschrift. 

70 

Dimensionierung. 

80- 90 

Erläuterung. 

100-170 

Erzeugen einer Textdatei (zu den Einzel¬ 
heiten vergl. Programm 2.2 des vorange¬ 
gangenen Beispiels). 

190-240 

Lesen von der Diskette (notwendig dazu 
sind INPUT-AnWeisungen; zu den Einzel¬ 
heiten vergl. vorangegangenes Beispiel). 

250-280 

Kontrollausgabe. 

290 

Ende des Programms. 


Anmerkung: 

Im interaktiven Diskettenbetrieb führt die GET- 
Anweisung häufig zu Fehlern. 

Deshalb haben wir auf ein Unterprogramm zum Abwarten, 
wie es im vorangegangenen Beispiel benutzt wurde, 
verzichtet. 
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Wichtig ist also, daß beim Beschreiben von Disket¬ 
ten im interaktiven Betrieb die Anweisung WRITE, 
beim Lesen die Anweisung INPUT benutzt wird, die bei¬ 
de als Stringbestandteile in PRINT-Anweisungen auf¬ 
tauchen . 

Der aufmerksame Leser wird sicherlich bemerkt haben, 
daß diese beiden Beispiele sich auf die Benutzung se¬ 
quentieller Dateien bezogen. 

Will man den Informationsaustausch zwischen Rechner 
und Diskette auf dem Bildschirm sichtbar machen, was 
für Kontrollzwecke manchmal sinnvoll ist, so gelingt 
dies mit der Anweisung 

MON C,I,0 

Das Argument C in diesem Kommando bewirkt, daß alle 
internen Betriebssystemanweisungen im Augenblick ihrer 
Ausführung auf dem Bildschirm erscheinen, I zeigt alle 
Informationen auf dem Wege von der Diskette zum Rech¬ 
ner (Input), 0 zeigt alle Informationen auf dem Wege 
vom Rechner zur Diskette (Output). Einzelne dieser Ar¬ 
gumente können auch weggelassen werden. 

Die Unterdrückung dieser Ausgaben gelingt mit der An¬ 
weisung 


NOMON 

oder durch Neustart der Diskette. 

Das Kommando NOMON kann die gleichen Argumente enthal¬ 
ten wie das Kommando MON. 

Enthält es hingegen weniger Argumente, so wird nur der 
jeweilige Effekt "abgeschaltet". 
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Wenn der Leser bei der Erprobung dieser Programme 
eine Diskette benutzt, auf die er in anderen Zusam¬ 
menhängen schon Programme (per SAVE-Kommando) ge¬ 
speichert hat, wird er bei der Ausgabe des Disketten¬ 
inhaltsverzeichnisses per CATALOG feststellen, daß die 
"normalen" BASIC-Programme mit einem A gekennzeichnet 
sind. Diejenigen Dateien hingegen, die im interaktiven 
Betrieb durch ein laufendes Programm auf der Diskette 
kreiert und etabliert worden sind, werden im CATALOG 
durch den Buchstaben T gekennzeichnet. 

Man nennt solche Dateien " Textdateien ". Solche Dateien 
können nicht durch LOAD geladen werden, sondern nur 
im Rahmen von laufenden Programmen, wie es im letzten 
Beispiel gezeigt wurde. 

Etablierte Textdateien können leicht verändert werden, 
wobei es insbesondere um folgende Aktivitäten geht: 

1. Löschen von Dateien; 

2. Verlängerung von Dateien; 

3. Löschen einzelner Datensätze 
in der Datei; 

4. Veränderung einzelner Datensätze. 

Die für diese Aktivitäten notwendigen Anweisungen sol¬ 
len im folgenden anhand kurzer Beispiele vorgestellt 
werden. 

Das Löschen von Dateien - auch von interaktiv erstell¬ 
ten Textdateien - erfolgt einfach mit dem Kommando 


DELETE Dateiname 
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Wie eine Dateiverlängerung erfolgen kann, zeigt das 
folgende Programm: 


30 PRINT TAB< 9> APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB( 9)"R.PRLIST / Ul.t'OSS 1984" 

50 PRINT : PRINT : PRINT TAB( 8) "2.4 - DATEIt'ERLAENGERUNG 
60 PRINT : PRINT : PRINT : PRINT 
70 DIM N-$<4) ,B$-(6> 

80 PRINT "DIESES PROGRAMM ZEIGT, WIE EIN DATENBE-" 

90 PRINT "STAND AUF EINER DISKETTE t'ERLAENGERT" 

100 PRINT "WERDEN KANN." 

105 REM SCHREIBEN 

110 DATA OTTO,SUSI,BERTA,EMIL 

120 FOR I = 1 TO 4; READ N-^< I ) : NEXT I 

130 D^ = CHR^ <4) 

140 PRINT Dt-; " OPEN DATEI 3" 

PRINT D-^;"WRITE DATEI 3" 

FOR I = i TO 4: PRINT N-^( I > : NEXT I 
PRINT D^;"CLOSE DATE13" 

REM LESEN CON DER DISKETTE 
PRINT D^;"OPEN DATEI 3" 


150 

160 

180 

190 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


PRINT D^;"READ DATEI 3" 

FOR I = 1 TO 4 
INPUT A^ iBtXI) = A$- 
NEXT I 

PRINT D-^;"CLOSE DATEI 3" 
REM KONRTROLLAUSDRUCK 
HOME : PRINT "KONTROLLE : 
FOR I = 1 TO 4 
PRINT Bf<I) 

NEXT I 

REM L'ERLAENGERLING 
PRINT D-^;"APPEND DATEI3" 
PRINT D^;"WRITE DATEI 3" 
PRINT "ADAM": PRINT " EW 
PRINT D^;"CLOSE DATEI3" 
PRINT : PRINT : PRINT 


: PRINT 


PRINT 


KONTROLLE NACH UERLAENGERUNG 


370 
PRINT 

380 PRINT D-^ ; " OPEN DATEI 3" 

390 PRINT D-^;"READ DATEI 3" 

40 0 FOR I = i TO 6: INPUT A^:B$ <I) = A$-: NEXT I 
420 PRINT D^;"CLOSE DATEI 3" 

430 FOR I = i TO 6: PRINT B$(I>: NEXT I 
440 END 
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Im einzelnen geschieht hier folgendes: 


Sätze 

Inhalt 

30-100 

Überschrift, Erläuterungen und 
Dimensionierung. 

105-120 

Bereitstellen der Daten. 

130-180 

Etablierung der Diskettendatei 
und Einschreiben der Daten. 

190-260 

Lesen der Daten von der Diskette 
kontrollhalber. 

270-310 

Kontrollausgabe auf dem Bildschirm. 

320-360 

Verlängerung der Diskettendatei. 

370-420 

Einlesen von der Diskette. 

4 30 

Kontrollausdruck der verlängerten 

Datei auf dem Bildschirm. 

440 

Ende des Programms. 


Wir haben uns bei dieser Prograimnbeschreibung etwas 
knapper gefaßt, weil die Details der Dateibehandlung 
ja schon in früheren Beispielen erläutert wurden. 

Entscheidend ist hier die Anweisung 
APPEND Dateiname 


die sowohl die Datei öffnet (also die OPEN-Anweisung 
ersetzt) als auch für das Anfügen zusätzlicher Infor¬ 
mationen sorgt. 





65 


Will man nun einzelne Datensätze behandeln (etwa 
löschen oder ändern ), so ist dies nur bei random- 
access-Dateien möglich. Dazu das folgende Programm¬ 
beispiel : 


30 

PRINT 

TAB-: 9)" 

APPLE-TIPS UND TRICKS" 


40 

PRINT : 

PRINT : 

PRINT 

TAB< 9)"R.PRUST / W.L'OSS 

1984" 

50 

PRINT : 

PRINT : 

PRINT 

TAB< 8) "2.5 - DATEIL'ERAENDERUNG" 

60 

PRINT : 

PRINT : 

PRINT ! 

: PRINT 


70 

DIM N^<4>,B^<4> 




80 

PRINT " 

DIESES PROGRAMM 

ZEIGT, WIE EIN DATENBE-" 


90 

PRINT " 

STAND AUF EINER 

DISKETTE L'ERAENDERT" 


100 

PRINT 

"WERDEN 

KANN." 



105 

PRINT 

: PRINT 

"EINGEGEBEN WERDEN DIE NAMEN :": 

PRINT : 


PRINT "OTTO, SUSI, BERTA, EMIL" 

107 PRINT : PRINT "BERTA SOLL IN EL'A L'ERAENDERT WERDEN." 

108 PRINT : PRINT TAB( 14)"M0MENT BITTE": FOR I = 1 TO 8000 
NEXT I 

110 DATA OTTO, SLISI , BERTA, EMIL 

120 FOR I = 1 'Tp 4: READ N'^CI): NEXT I 

130 D^ = CHR-^ <4> 

140 PRINT D^;"OPEN DATEI 4,LI 0" 

150 FOR I = 1 TO 4: PRINT D^;"WRTTE DATEI4,R";I 
160 PRINT N^<I): NEXT I 
ISO PRINT D-^;"CL0SE DATEI 4" 

190 REM LESEN L'ON DER DISKETTE 
210 PRINT D^;"OPEN DrtTEI4,L10" 

220 FOR I = i TO 4: PRINT, D^;"READ DATEI4,R";I 
240 INPLIT A^:B^(I) = A^- 
250 NEXT I 

260 PRINT D^;"CLOSE DATEI 4" 

270 REM KONRTROLLAUSDRUCK 

280 HOME : PRINT "KONTROLLE : ": PRINT : PRINT 

290 FOR 1 = 1 TO 4 
30 0 PRINT B-$(I) 

310 NEXT I 

320 REM L'ERAENDERUNG 

330 PRINT D-^;"OPEN DATEI 4, LI 0" 

340 PRINT D-^;"WRITE DATE I 4, R"; 3 
350 PRINT "E'v^A" 

360 PRINT D^;"CLOSE DATEI 4" 

370 REM KONTROLLE 

380 PR I NT D$-; " OPEN DATE I 4 , L1 0 " 

390 FOR I = 1 TO 4 
400 PRINT D^;"READ DATEI4,R";I 
410 INPUT A^:B^<I) = A^: NEXT I 
420 PRINT D^;"CLOSE DATEI 4" 

430 PRINT : PRINT : PRINT "KONTROLLE NACH L'ERAENDERUNG 
PRINT 

440 FOR I = 1 TO 4: PRINT B$XI> : NEXT I 
450 PRINT ; PRINT "ENDE": END 
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Auch hier 

können wir uns bei der Programmbeschrei- 

bung kurz 

fassen: 

Sätze 

Inhalt 

30-107 

Überschrift, Dimensionierung und 
Erläuterungen. 

108 

Warteschleife. 

110-120 

Dateneingabe. 

130-180 

Speichern , 

190-310 

Lesen und Kontrollausdruck. 

320-360 

Veränderung des Dateiinhalts. 

370-440 

Lesen und Kontrollausdruck. 

450 

Ende. 


Sicherlich kann sich der Leser jetzt auch vorstellen, 
wie einzelne Datensätze gelöscht werden können. 
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2,3.4 Beispiel; Statistische Auswertung 

Wie schon an anderer Stelle ausgeführt wurde, entfal¬ 
ten MikrocomputersySterne ihre Nützlichkeit insbeson¬ 
dere bei der Verwaltung, Bearbeitung und Analyse grö¬ 
ßerer Datenbestände. 

Die Arbeiten, die die Statistiker bis vor wenigen Jah¬ 
ren nur per Hand oder allenfalls unter Benutzung der 
teuren (und meist überlasteten) Großrechner erledigen 
konnten, sind jetzt rasch und zuverlässig durch die 
Kleinrechner zu bewältigen. 

Allerdings setzen solche Datenauswertungen voraus, daß 
der zu analysierende Datenbestand in geschickter und 
möglichst bequemer Weise, die zudem noch zuverlässig 
Fehler verhindern soll, dem Rechner zur Verfügung ge¬ 
stellt wird. 

Am Beispiel etwa von Umfrageergebnissen läßt sich, wie 
schon in vorangegangenen Abschnitten, diese Aufgaben¬ 
stellung anschaulich illustrieren. 

Ein derartiges Beispiel eignet sich ganz besonders für 
dieses Kapitel, weil die Analyse größerer Datenbestände 
in der Tat nur mit dem Einsatz peripherer Speicher mög¬ 
lich ist. Es werden also z.B. Disketten notwendigerwei¬ 
se eingesetzt werden müssen, weil die auszuwertenden Da¬ 
ten ja auf Dauer oder zumindest für längere Zeit zur 
Verfügung stehen müssen. 
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Am Beispiel einer einfachen statistischen Auswer¬ 
tung sollen die notwendigen Arbeitsschritte nun er¬ 
örtert werden. 

Aufgabenstellung 

Bei einer Umfrage sind eine Reihe numerischer Daten 
erhoben worden, nämlich: 

1. Alter (in Jahren) 

2. Größe (in cm) 

3. Gewicht (in kg) 

4. Oberer Blutdruckwert 

5. Zigarettenkonsum (im Tagesdurchschnitt) 

Die einzelnen Aufgaben, die zu erledigen sind, sind 
die folgenden: 

1. Eingabe der Daten auf Diskette 

2. Eventuelle Datenkorrektur 

3. Kontrollausgabe aller Datensätze 

4. Alternative Ausgabe von Sätzen oder 
Arrays auf Wunsch des Benutzers 

5. Bestimmung der Mittelwerte und Standard¬ 
abweichung für einzelne Variablen 

(nach Wunsch des Benutzers) 

6. Bestimmung von Korrelationskoeffizienten 
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Statistische Methoden 


Zu den Methoden der statistischen Auswertung ist 
folgendes anzumerken: 

Ein Mittelwert ( arithmetisches Mittel ) für eine 
Variable berechnet sich folgendermaßen 

X = 1 Z X. 

n . 1 


wobei X 

X. 

1 


arithmetisches Mittel 

Merkmalswert Nr. i der 
Variablen X 

LaufIndex 


n = Anzahl der Personen 
(Merkmalsträger) 


Eine Standardabweichung als Maß der Streuung der Merk¬ 
malswerte einer Variablen berechnet sich wie folgt: 

wobei s = Standardabweichung 
(übrige Symbole s.o.) 
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Ein Korrelationskoeffizient beinißt die Stärke des 
Zusammenhangs zwischen zwei Variablen X und Y; 


I _ i * 


wobei r = Korrelationskoeffizient 
nach Bravais/Pearson 

(-1 <r =r <' + 1) 

übrige Symbole s.o. (für 
zwei Variablen X und Y) 
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Daten 


Zur Illustration der weiteren Vorgehensweise be¬ 
nutzen wir die folgenden "Spieldaten": 


Person 

Alter 

Größe 

Gewicht 

Blutdruck 

Zigaretten 

1 

2o 

182 

8o 

142 

3o 

2 

3o 

174 

72 

134 

0 

3 

25 

178 

8o 

1 4o 

2o 

4 

45 

168 

68 

132 

Io 

5 

42 

177 

75 

13o 

0 

6 

58 

169 

7o 

145 

2o 

7 

37 

176 

82 

15o 

25 


Natürlich hat man es in der Praxis in der Regel mit 
einer größeren Datenmatrix zu tun, aber das ändert 
ja nichts an der grundsätzlichen Problematik. 

Auf den folgenden Seiten stellen wir das Programm 
vor, das die gestellten Aufgaben bewältigt. 

In diesem Programm fällt ins Auge, daß jeder einzelne 
eingegebene Datensatz sofort gespeichert wird, nach¬ 
dem dem Programmbenutzer die Gelegenheit geboten wurde, 
eventuelle Eingabefehler zu korrigieren. 

Dieses direkte Speichern hat einen tieferen Sinn: 

Würde man nämlich alle Datensätze eingeben wollen, um 
sie erst dann zu speichern, wäre das Risiko von Daten¬ 
verlusten (man denke z.B. an einen Stromausfall) un¬ 
vergleichlich höher. 
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Es ist zu beachten, daß der erste Datensatz per 
OPEN-Anweisung, die späteren per APPEND-Anweisung 
an die Diskette übergeben werden müssen. 


30 

40 

50 

60 

70 

80 

90 

95 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TAB< 9>"APPLE-TIPS UND TRICKS" 

: PRINT : PRINT TAB< 9>"R.PRUST / W.C03S 1984" 
: PRINT TAB< 5)"2.7 - STATISTISCHE AUSWERTUNG" 
: PRINT 
: PRINT 


PRINT "DIESES PROGRAMM DIENT DER ERFASSUNG" 
STATISTISCHER DATEN UND IHRER ERSTEN" 

TAB< 7)"STATISTISCHEN AUSWERTUNG." 

PRINT : PRINT "IN DIESEM PROGRAMM WERDEN NUR NUMERI-"; 
PRINT "SCHE VARIABLEN BERUECKSICHTIGT." 

97 PRINT ; PRINT "MISSING L^ALUES WERDEN NICHT BERUECK-" ; PRINT 
"SICHTIGT." 


100 

GOSUB 

1000; REM 

WARTEN 


1 10 

INPUT 

"ANZAHL DER PERSONEN ; " ;N 


120 

PRINT 

; INPUT " 

ANZAHL DER VARIABLEN ; 


130 

DIM W<N,U),X<N) 

,Y(N) 


140 

FOR I 

= 1 TO N 



150 

PRINT 

; PRINT ; 

PRINT 


160 

PRINT 

"PERSON NR. ";I; PRINT ; PRINT 


170 

FOR J 

= 1 TO C 



180 

PRINT 

TAB< 5)" 

L»AR.NR. ";J;: INPUT " ; " 

;W(I,J) 

190 

NEXT J 




200 

PRINT 

; PRINT : 

PRINT "SIND DIE ANGABEN 

KORREKT 


INPUT 


SPEICHERl 


"(J/N) ";A^ 

210 IF A^ = "J" THEN 230 
220 GOSUB 2000: REM KORREKTUR 
230 IF I = 1 THEN GOSUB 3000; REM 
240 GOSUB 4000; REM SPEICHER2 
250 NEXT I 

260 HOME : PRINT "KONTROLLAUSGABE"; PRINT ; PRINT 
270 PRINT "PERSON"; TAB< 8)"A"; TAB< 13)"GR"; TAB< 
TAB( 23)"BLUT"; TAB< 28)"2 IG"; PRINT 


18)"GW"; 


2b0 

290 


FOR I = 1 TO N 

PRINT TAB< 3)1; TAB< 7)WCI,1); TAB< 12)W<I,2); TAB< 1S)W(I,3) 


TAB( 23)W<I,4); TAB< 28)W(I,5) 


300 

310 

320 

330 


INT (I / 10) THEN GOSUB 1000; REM WARTEN 


IF I / 10 = 

NEXT I 

GOSUB 1000: REM WARTEN 

PRINT "SOLL EIN BESTIMMTER SATZ AUSGEGEBEN" 
? <J/N) ";A^ 

340 IF A^ = "N" THEN 400 


INPUT "WERDEN 
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350 PRINT : PRINT "WELCHER SATZ ? (BITTE NUMMER) INPUT 

I 

360 GOSUB 5000: REM SATZ 
370 GOTO 330 

400 HOME : PRINT "SOLL EIN BESTIMMTER ARRAY AUSGEGEBEN": INPUT 
"WERDEN ? <J/N) ";A^ 

410 IF A-^ = "N" THEN 500 

420 PRINT : PRINT "WELCHER ARRAY ? (BITTE NUMMER) ";: INPUT 
J 

430 GOSUB 6000: REM ARRAY 

440 GOTO 400 

500 REM STATISTISCHE BERECHNUNGEN 
505 PRINT : PRINT : PRINT : PRINT 

510 PRINT "STATISTISCHE BERECHNUNGEN (J/N) ";: INPUT A^ 

520 IF A^ = "N" THEN 900 

530 PRINT : PRINT : PRINT "MITTELWERTE ? (J/N) ";: INPUT A^ 

540 IF A^ = "N" THEN 600 

550 PRINT : PRINT : INPUT "WELCHE L>ARIABLE (BITTE NUMMER) ";J 

560 FÜR I = 1 TO N:X(I) = W(I,J): NEXT I: GOSUB 7000: REM 

SCHNITT 

570 GOSUB 1000:' REM WARTEN 

580 GOTO 530 

600 HOME : PRINT "STANDARDABWEICHUNGEN ? (J/N) ";: INPUT A^ 

610 IF A^ = "N" THEN 700 

620 PRINT : PRINT : PRINT "WELCHE VARIABLE (BITTE NUMMER) ";: 
INPUT J 

630 FOR I = 1 TO N:X(I) = W(I,J): NEXT I 
640 GOSUB 7000: REM SCHNITT 

650 GOSUB 8000: REM SIGMA, 

660 GOTO 600 

700 HOME : PRINT "KORRELATIONEN ? (J/N) ";: INPUT A^ 

710 IF A^ = "N" THEN 900 

720 PRINT : PRINT : PRINT "BITTE L'ARIABLEN ANGEBEN : ": PRINT 
: PRINT 

730 INPUT "ERSTE VARIABLE : ";J1 

740 PRINT : INPUT "ZWEITE iJARIABLE : " ; J2 

750 FOR I = 1 TO N:X(I) = W(I,J1):Y(I) = W(I,J2): NEXT I 

760 GOSUB 9000: REM KORR 

770 GOTO 700 

900 PRINT : PRINT : PRINT "ENDE DES PROGRAMMS": END 
1000 REM UP WARTEN 

1010 WAB 23; HTAB 6: INL>ERSE : PRINT "BITTE EINE TASTE DRUECKEN 
!"; NORMAL 

1020 GET A^: IF A^ = "" THEN 1020 
1030 HOME : RETURN 
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2000 REM UP KORREKTUR 

2010 PRINT ; PRINT "WELCHE ANGABE IST FALSCH ?" 

2020 INPUT "BITTE NUMMER ANGEBEN : ";J 

2030 PRINT : PRINT TAB< 5)"FALSCHER WERT : ";W<I,J) 

2040 PRINT : PRINT TAB< 5)"KORREKTER WERT: INPUT W(I,J) 

2050 HOME : PRINT “KONTROLLE": PRINT ; PRINT : PRINT "PERSON 
NR. ";I: PRINT : PRINT 

2060 FOR J = 1 TO C: PRINT "UAR.NR. “;J; TAB< 15)W(I,J): NEXT 
J 

2070 PRINT : PRINT “ALLES KORREKT ? <J/N) INPUT A'^ 

2080 IF A^ = “N" THEN PRINT : GOTO 2010 

2090 RETURN 

3000 REM' UP SPEICHERl 

3010 = CHR^ <4> 

3020 PRINT D^;“OPEN DATEI 5“ 

3030 PRINT D^;"WRITE DATEI 5“ 

3040 FOR J = 1 TO : PRINT W(I,J): NEXT J 
3050 PRINT D^s/'CLOSE DATEI 5“ 

3060 RETURN 

4000 REM UP SPEICHER2 

4010 D$ = CHR-$ (4) 

4020 PRINT D^;“APPEND DATEI 5“ 

4030 PRINT D^;“WRITE DATEI 5“ 

4040 FOR J = 1 TO U: PRINT W<I,J): NEXT J 
4050 PRINT D^;“CLOSE DATEI 5“ 

4060 RETURN 

5000 REM UP SATZ • 

5010 HOME : PRINT “PERSON NR. ";I: PRINT : PRINT 

5020 FOR J = 1 TO C: PRINT "CAR.NR. ";J; TAB( 15)W<I,J): NEXT 

J 

5030 GOSLIB 1000: REM WARTEN 

5040 RETURN 

6000 REM UP ARRAY 

6010 HOME : PRINT “ARRAY NR. “;J: PRINT : PRINT 

6020 FOR I = 1 TO N: PRINT “PERSON NR. ";I; TAB< 15)W(I,J): 

NEXT I 

6030 GOSUB 1000: REM WARTEM 
6040 RETURN 
7000 REM UP SCHNITT 
7010 S = 0 

7020 FOR I = 1 TO N:S = S + XCI): NEXT I 
7030 AM = S / N 

7040 PRINT : PRINT : PRINT “MITTELWERT DER CAR.NR. “;J;“ : 

“; INT <AM * 100 + .5) / 100 

7060 RETURN 
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8000 REM UP SIGMA 

8010 S = 0 

8020 FOR I = 1 TON:D = Xn) -AM:D = D * D;S = S + D: NEXT 
I 

8030 SA = SQR <S / N):S = INT <S * 100 + .5) / 100 

8040 PRINT : PRINT : PRINT "STANDARDABWEICHUNG ; ";SA 

8050 GOSUB 1000; REM WARTEN 

8060 RETURN 

9000 REM UP KORR 

9010 S1 = 0:S2 = 0:S3 = 0;S4 = 0;S5 = 0 

9020 FOR I = 1 TO N:S1 = S1 + X<I) * Y(I):S2 = S2 + X(I);S3 
= S3 + Y<I);S4 = S4 + X< I ) * X<I):S5 = S5 + Y<I) * Yd); NEXT 
I 

9030 Z = N * S1 - S2 * S3 

9040 NN = SQR <<N * S4 - S2 * S2) * <N * S5 - S3 * S3)) 

9050 R = Z / NN;R = INT (R 1000 + .5) / 1000 
9060 PRINT ; PRINT ; PRINT "KORRELATION ZWISCHEN" 

9070 PRINT ; PRINT "L»AR.NR. ";J1;" UND" 

9080 PRINT ; PRINT "k)AR.NR. ";J2;" = ";R 

9090 GOSUB 1000; RETURN 
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Bei der Programmbeschreibung beschränken wir uns 
auf die Aufzählung der Hauptbestandteile des Prograinms 
und überlassen es dem Leser, durch Lesen des Programms 
(dies ist übrigens eine sehr wichtige Übung mit her¬ 
vorragendem Trainingseffekt bei der Verbesserung der 
BASIC-Kenntnisse) die Einzelheiten zu studieren. 

Programmbeschreibung 


Sätze 

Inhalt 

30-97 

Überschrift und Erläuterungen. 

100-250 

Eingabe der Daten, Fehlerkorrektur 
und Speichern auf Diskette. 

260-320 

Kontrollausgäbe. 

330-370 

Ausgabe eines Datensatzes. 

400-440 

Ausgabe eines Arrays. 

500-580 

Mittelwertberechnungen. 

600-660 

Berechnung von Standardabweichungen. 

700-770 

Berechnung von Korrelationskoeffi¬ 
zienten. 

900 

Programmende. 

1000-1030 

2000-2090 

3000-3060 

4000-4060 

5000-5040 

6000-6040 

7000-7060 

8000-8060 

9000-9090 

UP Warten. 

UP Korrektur falscher Eingaben. 

UP Speichern per OPEN. 

UP Speichern per APPEND. 

UP Ausgabe eines Datensatzes. 

UP Ausgabe eines Arrays. 

UP Mittelwertberechnung. 

UP Standardabweichung. 

UP Korrelationskoeffizient. 
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Damit der Leser schließlich beurteilen kann, was 
dieses Programm leistet, seien für die oben vorge¬ 
stellten "Spieldaten" die Ergebnisse vorgestellt, 
die nach der erfolgreichen Dateneingabe produziert 
werden können. 


Ergebnisse 

Nach der Dateneingabe produziert das Programm zunächst 
einen Kontrollausdruck des gesamten Datenbestands. 

Dann können alle Mittelwerte, alle Standardabweichungen 
und alle bivariaten Korrelationskoeffizienten bestimmt 
werden. Dabei ergibt sich; 


Mittelwert Standard- 

abweichung 


1 

Alter 

36.71 

12.02 

2 

Größe 

174.86 

4.61 

3 

Gewicht 

75.29 

5.09 

4 

Blutdruck 

139 

6.78 

5 

Zigaretten 

15 

11.02 
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Korrelationskoeffizienten 




Alter 

1 

Größe 

2 

Gewicht 

3 

Blutdr. 

4 

Zigar. 

5 

1 

Alter 

1 

-0.825 

-0.664 

-o.ooS 

-0.237 

2 

Größe 


1 

0.848 

0.16 

0.337 

3 

Gewicht 



1 

-0.542 

-0.573 

4 

Blutdruck 




1 

0.831 

5 

Zigaretten 





1 


Es ist leicht einsichtig, daß ein solches schon recht 
umfangreiches Programm unter mehreren Gesichtspunkten 
verbessert und verschönert werden könnte. Einige wenige 
dieser Aspekte sollen hier genannt werden. 


1. Wenn die Daten - wie hier vorgesehen - auf Dis¬ 
kette gespeichert werden, dann könnte natürlich 
vorgesehen werden, daß sie bei der statistischen 
Auswertung nicht alle im Arbeitsspeicher gehalten 
werden (bei großen Datenbeständen geht das auch 
gar nicht), sondern daß die jeweils zu bearbeiten¬ 
den Arrays nach den entsprechenden Angaben des 
Benutzers erst von der Diskette eingelesen werden. 

Durch Einbau entsprechender Leseprogramme ist 
dies leicht zu realisieren. 
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2. Für den praktischen Einsatz müßte vorgesehen 
werden, daß bei den Berechnungen eventuelle 
missing values (Antwortverweigerer u.ä.) über¬ 
gangen werden. Mit simplen IF-Abfragen und ggf. 
Verringerung der "echten" Zahl der Antworten 
kann dies erreicht werden. 

3. Nicht immer hat man es ausschließlich mit nume¬ 
rischen Variablen zu tun: 

Treten auch Stringvariablen auf, so könnte nicht 
mit W(N,V) dimensioniert werden, sondern die 
einzelnen Variablen müßten dann als eindimensio¬ 
nale Arrays angelegt werden. 

Die Schleifen, die von J=1 bis V laufen (z.B. 
beim Eingeben der Daten, aber auch an einigen 
anderen Stellen), müßten dann in einzelne State¬ 
ments "aufgelöst" werden. 

4. Schließlich würde es die Ergebnisse lesbarer 
machen, wenn z.B. die Variablen nicht einfach 
nur numeriert würden, sondern wenn die inhalt¬ 
lichen Bezeichnungen benutzt würden ("Alter", 
"Größe" usw.) 

Dazu müßten diese Begriffe z.B. über DATA- 
Statements in einen Begriffs-Array B^(J) 

(J=1 bis V) eingelesen und dann an passender 
Stelle immer mitbenutzt werden. 

Diese Anmerkungen sollen verdeutlichen, daß bei echten 
Datenverarbeitungsprogrammen doch ein beträchtlicher 
Aufwand betrieben werden muß (auch wenn dies nicht sehr 
schwierig ist), wenn man zu komfortablen Programmen 
gelangen will. 


Kapitel 3; Speicherzugriff und Maschinenprogramme 


3.1 Direkter Speicherzugriff 

Die in den ersten beiden Kapiteln besprochenen 
BASIC-Sprachelemente reichen in den meisten Fällen 
für die anliegenden Programmierprobleme aus. 

Für einen etwas fortgeschritteneren Benutzer kommt 
es dann aber nicht mehr nur darauf an, irgendeine 
Lösung seines Problems zu finden, sondern es spie¬ 
len auch andere Aspekte eine Rolle: Die Eleganz der 
Programmierung, die Ausführungsgeschwindigkeit und 
die Übersichtlichkeit der Ergebnisse sollen hier als 
Beispiele genannt werden. Sobald jemand vom "Compu¬ 
terfieber" gepackt ist, sucht er nach der optimalen 
Lösung. Da es unterschiedliche Programmierstile gibt, 
wie es unterschiedliche Sprachstile gibt, ist Opti- 
malität in diesem Zusammenhang nicht objektiv zu de¬ 
finieren. Dies ist ein Grund, weshalb wir die Opti- 
malität nicht in den Vordergrund dieses Buches ge¬ 
stellt haben. Doch so verschieden die Vorstellungen 
von einem "guten" Programm auch sein mögen, man 
wird bemüht sein, alle Möglichkeiten seines Rechners 
auszunutzen, um zu einem besseren Programm zu gelan¬ 
gen, ganz gleich was man darunter versteht. 

Bislang haben wir in allen Beispielen dem Rechner 
die Betreuung seines Speichers überlassen. 
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Der Speicherinhalt wurde nur über BASIC-Befehle 
wie LIST oder PRINT abgefragt. Der APPLE II bietet 
aber auch die Möglichkeit, den Inhalt einzelner 
Speicherstellen direkt abzufragen oder sogar abzu¬ 
ändern. Um dies sinnvoll tun zu können, muß man wis¬ 
sen, was ein bestimmter Wert in einer bestimmten 
Speicherstelle bedeutet. 

Es sollen im folgenden einige Möglichkeiten vorge¬ 
stellt werden, wie man den direkten Speicherzugriff 
sinnvoll in Programmen einsetzen kann. Wiederum ist 
beabsichtigt, dem Leser Anregungen zu geben, nicht 
jedoch eine vollständige Liste von Einsatzmöglichkei¬ 
ten zu erstellen. 

Bei den benötigten Sprachelementen handelt es sich 
um den Befehl 


POKE adresse,wert 


mit dem man an die angegebene Adresse den angegebe¬ 
nen Wert schicken kann, sowie um die Funktion 


PEEK (adresse) 


durch die der Inhalt der angegebenen Speicherstelle 
abgefragt wird. In beiden Fällen muß die Adresse dezi¬ 
mal angegeben werden. Auch der Wert im POKE-Befehl ist 
eine Dezimalzahl. 
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Beispiele: 

POKE 33,30 
POKE 32,5 

PRINT PEEK(222) 

PRINT PEEK(103)+PEEK(104)*256 


Durch die Befehlsfolge der beiden POKE-Anweisungen 
wird zunächst die Bildschirmbreite auf 30 reduziert, 
dann wird der linke Bildschirmrand auf Spalte 5 ver¬ 
schoben, d.h. mit Hilfe der Speicherstellen 32 und 33 
kann die Breite eines Bildschirmfenster s festgelegt, 
werden. 

Der linke und rechte Teil des Schirms sind so "ge¬ 
sperrt", sie können nicht mehr beschrieben werden. 

Auch der HOME-Befehl wirkt nur noch innerhalb des Fen¬ 
sters. 


PEEK muß wie jede Funktion mit dem PRINT-Befehl ge¬ 
koppelt sein, wenn ihr Funktionswert sichtbar werden 
soll. Wie man sieht, kann sie auch in Rechenformeln 
veirwendet werden. Die Speicherstelle 222 enthält den 
Code des Fehlers der zuletzt aufgetreten ist. 

Im obigen Beispiel wird also eine Dezimalzahl auf dem 
Bildschirm angezeigt. Das letzte Beispiel berechnet 
aus 2 Teilen einer Hexadezimalzahl die entsprechende 
Dezimalzahl, und zwar enthalten die Speicherstellen 
103 und 104 diejenige Speicheradresse, an der das aktu¬ 
elle Programm beginnt, dies ist meist 2049. 
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Anwendungen 


1. Wenn ein Programm neu eingegeben wird, so beginnt 
die Speicherung in der Regel an der Stelle 2049 
(hexadezimal 00801). Der unterhalb dieser Adresse 
liegende RAM-Bereich (bis 00800) dient dem Betriebs¬ 
system. Diese Adresse "merkt sich" der Rechner in 
folgender Weise; 008 wird umgewandelt in die dezi¬ 
male Zahl 8, 001 in die dezimal Zahl 1. 

Die höherwertigen 2 Ziffern der hexadezimalen Adres¬ 
se speichert er ab an der Stelle 104, die nieder¬ 
wertigen an der Stelle 103. So konnte man durch die 
schon genannte Formel die Zahl 2049 für den Beginn 
des Programms feststellen. 

Die nächste freie Speicherstelle nach dem Ende des 
Programms im Speicher wird - ähnlich aufbereitet - 
den Speicherstellen 176 und 175 zugewiesen, d.h. 
der Befehl 

PRINT PEEK(175)+PEEK(176) ^2S6 

bringt die letzte Adresse, die das Programm benötigt 
plus 2^ auf den Bildschirm. 

Die Kenntnis dieser Adressen kann man ausnutzen, 
um sein Programm zu "verstecken". 

Dazu sei folgendes Vorgehen angeregt: Der Leser über 
zeuge sich durch LIST, daß sich ein Programm im Ar¬ 
beitsspeicher befindet (ansonsten sollte eines gela¬ 
den oder eingetippt werden). 
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Danach gebe er folgende Befehle im Direktmodus 
ein: 


POKE 103,PEEK(175)iPOKE 104,PEEK(176) 

POKE PEEK(103)+256»PEEK(104)-1,0 

Wenn nun LIST eingegeben wird, ist das vorher 
sichtbare Programm verschwunden. Der Bildschirm 
ist entweder leer oder es erscheinen Reste eines 
vorher anscheinend durch NEW gelöschten Programms. 
Das vorher eingegebene Programm kann wieder sicht¬ 
bar gemacht werden durch: 

POKE 103,1:POKE 104,8 

Im Kapitel 7 finden sich Beispiele, wie diese 
"Spielerei" mit großem praktischen Nutzen eingesetzt 
wird von den Programmen des APPLE-DOC. 

Dort erfolgen solche Neubelegungen von Speicherstel¬ 
len, auch der obengenannten. 


2. Schon bei der Vorstellung der Befehle wurde das 

Bildschirmfenster erwähnt. Durch Ansprechen und Neu¬ 
belegung der entsprechenden Speicherstellen kann der 
benutzbare Bildschirm verkleinert werden. Dies ist 
insbesondere dann interessant, wenn Teile des Bild¬ 
schirms gegen Überschreiben oder "Wegrollen" ge¬ 
sichert werden sollen. Zuständig dafür sind die 
Speicherstellen 32 bis 35. 
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32: Legt den linken Bildschirmrand fest. 

die Werte der Stelle 32 müssen zwischen 
0 und 39 liegen. 

33: Gibt die Bildschirmbreite an, nicht den 
rechten Rand. Zulässige Werte liegen zwi¬ 
schen 1 und 40, es muß darauf geachtet wer¬ 
den, daß PEEK(33) + PEEK(32) nicht größer 
als 40 werden darf. Es ist sinnvoll, zunächst 
33 und dann erst 32 zu verändern. 

34: Oberer Bildschirmrand in Werten zwischen 0 
und 23. Angegeben werden muß die erste freie 
Zeile. 

35: Unterer Bildschirmrand in Werten zwischen 0 
und 23. Angegeben wird die erste gesperrte 
Zeile. 


Die Einsatzmöglichkeiten sind vielfältig. So hätten 
wir beispielsweise äen "Kopf" aller unserer Beispiel¬ 
programme so programmieren können: 


3 HOME ; HTAB (9); PRINT «APPLE-TIPS UND TRICKS« 

4 PRINT ; PRINT : HTAB <9): PRINT «R.PRUST / N.OOSS 1984" 
PRINT 

5 FOR I = 1 TO 40: PRINT NEXT : POKE 34,5: HOME 
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Für eventuell folgende Bildschirmanzeigen stehen 
nur noch 18 Zeilen zur Verfügung, da durch POKE 
34,6 die Zeilen 0 bis 5 auf dem Bildschirm ge¬ 
sperrt sind. Auch der HOME-Befehl löscht nur in¬ 
nerhalb des Bildschirmfensters. 

Etwas ähnliches kann man nun auch am unteren Rand 
machen. Wenn in der letzten Zeile der Name des ge¬ 
rade arbeitenden Programms während des gesamten 
Durchlaufs sichtbar bleiben soll, könnte man das 
Beispielprogramm etwa so erweitern: 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB < 9) : PRINT "R.PRUST / W.L»OSS 1984 
PRINT 

5 FOR I = 1 TO 40: PRINT NEXT : POKE 34,6: HOME 

10 L>TAB 22: FOR 1= 1 TO 40: PRINT NEXT : PRINT 

: HTAB 9: PRINT "PROGRAMM: DEMO TEXTFENSTER";; POKE 35,21 
HOME ’ 


Die letzte verfügbare Zeile ist nun die Zeile 
20, d.h. es stehen uns nur noch 15 Zeilen zur 
Verfügung. 

Die Begrenzungen des Bildschirms werden erst 
wirksam nach dem ersten Befehl, der eine neu ge¬ 
sperrte Speicherstelle anspricht, deshalb wurden 
die HOME-Befehle am Ende der Zeilen 5 und 10 auf- 
genommen. Auf diese Weise ist gesichert, daß nach¬ 
folgende PRINT-Statements nur innerhalb des Fen¬ 
sters positioniert werden. 
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Nun wird das Programm erweitert um einige Ausdruck¬ 
befehle und INPUT-Statements. Es werden 5 Eingaben 
verlangt für die Variablen AI bis A5, deren Durch¬ 
schnitt dann berechnet wird. Die Anzeigen sollen 
jedoch etwas mehr in die Mitte des Schirms gerückt 
werden, was im nachfolgenden Programm mit TAB(6) 
erreicht wurde: 


3 HOME : HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB <9); PRINT "R.PRUST / N.UOSS 1984 
PRINT 

5 FOR I = 1 TO 40: PRINT NEXT : POKE 34,6: HOME 

10 L'TAB 22; FOR I = 1 TO 40; PRINT NEXT ; PRINT 

; HTAB 9: PRINT "PROGRAMM: DEMO TEXTFENSTER"}; POKE 35,21 


HOME 

20 

PRINT 

TAB( 

6) " 1 . 

EINGABE 

$ • 

INPUT 

"" ;A1 

30 

PRINT 

TAB( 

6) " 2. 

EINGABE 

■1 ■ ■ 
f • 

INPUT 

" " ;A2 

40 

PRINT 

TABC 

6) " 3. 

EINGABE 

» • 

INPUT 

" " ;A3 

50 

PRINT 

TAB( 

6) "4. 

EINGABE 

> ■ 

INPUT 

" " ;A4 

60 

PRINT 

TABC 

6) " ^. 

EINGABE 

>1 ■ ■ 
> • 

INPUT 

"" ;A5 


70 X = (Al + A2 + A3 + A4 + A5) / 5 

80 PRINT : PRINT ; PRINT TAB( 6)"DURCHSCHNITT; ";X 
90 END 


Wenn sehr viele solcher verschobenen Bildschirm¬ 
anzeigen erfolgen sollen, ist es bequemer, statt 
die TAB-Funktion in jeder Zeile zu Anfang des Aus¬ 
druckteils zu benutzen, den linken Rand des Bild¬ 
schirms zu versetzen: 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / W.L^OSS 1984 
PRINT 

5 FOR I = 1 TO 40: PRINT NEXT : POKE 34,6; HOME 

10 L»TAB 22: FOR I = 1 TO 40: PRINT NEXT ; PRINT 

: HTAB 9: PRINT "PROGRAMM; DEMO TEXTFENSTER";: POKE 35,21 
HOME 

20 POKE 33,35; POKE 32,5: HOME 

30 INPUT "1. EINGABE ; ";A1 

40 INPUT "2. EINGABE : ";A2 

50 INPUT "3. EINGABE : ";A3 

60 INPUT "4. EINGABE : ";A4 

70 INPUT "5. EINGABE : ";A5 

80 X = <A1 + A2 + A3 + A4 + A5) / 5 

90 PRINT ; PRINT : PRINT "DURCHSCHNITT: ";X 

100 END 


Es besteht im Ergebnis kein Unterschied zur vor¬ 
hergehenden Version, aber der Programmierer hat 
Tipparbeit gespart, das Programm ist etwas kürzer 
geworden und bei der Ausführung entfallen 6 TAB- 
Befehle, d.h. es wird Zeit eingespart. 

Dies macht sich natürlich erst in größeren Pro¬ 
grammen mit vielen solchen Programmzeilen spürbar 
bemerkbar. 
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Eine andere Möglichkeit für den Einsatz von POKE 
32,X besteht in dem Fall, daß erst der linke Teil 
des Bildschirms beschrieben werden soll und dann 
der rechte. 

So könnten etwa die Eingaben für 6 Variablen 
auch nebeneinander gesetzt werden, erst 3 links, 
dann 3 rechts. Dies geschieht in der folgenden 
Version: 


3 HOME ; HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9); PRINT "R.PRUST / W.UOSS 1984 
PRINT 

5 FOR I = 1 TO 40: PRINT NEXT : POKE 34,6: HOME 

10 UTAB 22: FOR I = 1 TO 40: PRINT NEXT : PRINT 

: HTAB 9: PRINT "PROGRAMM: DEMO TEXTFENSTER";: POKE 35,21 
HOME 


20 

INPUT 

"1.EINGABE: " 

;A1 

30 

INPUT 

"2.EINGABE: " 

;A2 

40 

INPUT 

"3.EINGABE: " 

;A3 

50 

POKE 33,20: POKE 32 

,20: HOME 

60 

INPUT 

"4.EINGABE: " 

;A4 

70 

INPUT 

"5.EINGABE: " 

;A5 

80 

INPUT 

"6.EINGABE: " 

iA6 

90 

PRINT 

"SUMME: ";A1 

+ A2 + A3 + A4 + A5 + A6 

100 

END 




Die Zeilen 20 bis 40 arbeiten wie gewohnt, am lin¬ 
ken Rand des Schirms beginnt der Text. 

Durch Zeile 50 wird die Bildschirmbreite auf 20 
reduziert und der linke Rand auf Position 20 ge¬ 
setzt. Wichtig ist wieder die Reihenfolge: 
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Erst wird die Breite reduziert, dann wird der 
Rand versetzt. Der HOME-Befehl hat wieder die 
schon genannte Aufgabe, die vorhergehenden POKE- 
Anweisungen wirksam werden zu lassen. 

Dadurch werden die Anzeigen, die durch die Zeilen 
60 bis 80 bewirkt werden, neben die vorherigen 
(aus den Zeilen 20 bis 40) placiert. Auch der Er¬ 
gebnisausdruck aus Zeile 90 steht im rechten Teil 
des Bildschirms ab Spalte Nr. 20 (d.h. aber der 
21. Spalte). 


Sperrungen von Bildschirmbereichen können natür¬ 
lich auch rückgängig gemacht werden, indem man POKE- 
Befehle i[nit den ursprünglichen Werten der Speicher¬ 
stellen verwendet. Ein letztes Beispiel soll dies 
veranschaulichen anhand der vorherigen Programmver¬ 
sion; es bietet sich an, den Bildschirm vor dem Er¬ 
gebnisausdruck wieder zu verbreitern, da die Summe 
ja aus allen 6 Eingaben berechnet wurde; 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS“ 

4 PRINT ; PRINT ; HTAB <9): PRINT "R.PRUST / N.UOSS 1984": 
PRINT 

5 FOR I = 1 TO 40; PRINT NEXT ; POKE 34,6; HOME 

10 L'TAB 22: FOR I = 1 TO 40; PRINT NEXT ; PRINT 

: HTAB 9: PRINT “PROGRAMM; DEMO TEXTFENSTER“;; POKE 35,21; 
HOME 

20 INPUT “1.EINGABE; “;A1 

30 INPUT “2.EINGABE; “;A2 

40 INPUT “3.EINGABE; “;A3 

50 POKE 33,20; POKE 32,20: HOME 

60 INPUT “4.EINGABE; “;A4 

70 INPUT “5.EINGABE: “;A5 

80 INPUT “6.EINGABE; “;A6 

90 PRINT : PRINT 

100 POKE 32,0: POKE 33,40 

110 PRINT ; PRINT "DIE SUMME BETRAEGT: “;A1 + A2 + A3 
+ A4 + A5 + A6 
120 END 
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Nach den schon bekannten Funktionen der Zeile 3 
bis 80 werden zunächst 2 Leer^eilen eingeschoben 
(allerdings nur im rechten Bildschirmbereich). 

Danach werden der Bildschirmrand und die Bildschirm¬ 
breite wieder auf die normalen Werte 0 und 40 ge¬ 
setzt. Dabei muß nun genau die umgekehrte Reihen¬ 
folge eingehalten werden wie vorher. 

Der erste PRINT-Befehl in Zeile 110 wirkt zunächst 
noch nur auf den rechten Teil des Schirms/ 
deshalb mußte er dem Ergebnisausdruck vorangesetzt 
werden, damit dieser nun wieder am linken Bild¬ 
schirmrand beginnt. 

3. Eine dritte Anwendungsmöglichkeit betrifft ebenfalls 
den Bildschirm, aber nicht das Bildschirmfenster. 

Der Leser sollte einmal folgendes Programm starten: 


3 HOME : HTAB < 9) ; PR’INT «APPLE-TIPS UND TRICKS« 

4 PRINT : PRINT : HTAB < 9) : PRINT "R.PRUST / N.L^OSS 1984“: 
PRINT 

10 HOME ; FOR J = 1 TO 24: FOR I = 1 TO 40; PRINT «A«;: 
NEXT I,J 

20 FOR Q = 1 TO 2000: NEXT 
30 X = 160 

40 FOR Q = 1024 TO 2039: POKE Q,X: NEXT 
50 END 
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Das Programm füllt zunächst den gesamten Bild¬ 
schirm mit dem Buchstaben "A" als Folge von Zeile 
10. Zeile 20 enthält eine "leere" Schleife der 
Länge 2000, die nur dafür sorgt, daß der gefüllte 
Bildschirm etwas länger betrachtet werden kann. 
Durch die Schleife in Zeile 40 wird nun der Bild¬ 
schirm wieder gelöscht, allerdings nicht zeilen¬ 
weise von oben nach unten, sondern erst die Zeile 
0, dann Zeile 8, Zeile 16, dann Zeile 1, Zeile 9, 
Zeile 17, dann Zeile 2, Zeile 10, Zeile 18 usw. 
Durch POKE Q,X wird der Bildschirmzeichencode für 
das Leerzeichen (160) in alle Speicherstellen von 
1024 bis 2039 geschrieben, dies ist der Speicher¬ 
bereich für den Bildschirminhalt. In 1024 bis 1063 
stehen die Codes für alle Zeichen der ersten Zeile, 
in 1064 bis 1103 die der neunten Zeile, in 1104 bis 
1143 die der siebzehnten Zeile. 

Danach werden 8 Stellen "übersprungen" und die Stel 
len 1152 bis 1191 enthalten die Codes aller Zeichen 
der zweiten Zeile usw. 


Der Bildschirmbereich ist also eingeteilt in 3 Grup 
pen: Zeile 0 bis 7, Zeile 8 bis 15 und Zeile 16 bis 
23. Die Abspeicherung des Inhalts erfolgt dann so: 
eine Zeile der ersten Gruppe, eine der zweiten, 
eine der dritten, danach 8 Stellen für andere In¬ 
formationen, dann wieder eine Zeile der ersten Grup 
pe, eine der zweiten, eine der dritten, 8 Stellen 
"frei" usw., d.h. die Speicherstellen für das je¬ 
weils erste Zeichen von 2 aufeinanderfolgenden Zei¬ 
len einer Gruppe haben Adressen, die sich gerade 
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um 128 unterscheiden. Dies wird im nächsten Pro- 
gramm ausgenutzt. 

Im ersten Beispiel wurde der direkte Speicherzu¬ 
griff eingesetzt, um einen "vollen" Bildschirm 
zu löschen. Man kann aber natürlich auch durch 
den POKE-Befehl ein Zeichen an eine ganz bestimm¬ 
te Stelle des Bildschirms setzen, bzw. eine Folge 
von Zeichen an einer bestimmten Stelle beginnen 
lassen. Das wird am folgenden Programm demonstriert, 
das den gleichen Bildschirminhalt erzeugt wie die 
Zeilen 20 bis 110 des vorletzten Programms. 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ! PRINT : HTAB <9): PRINT "R.PRUST / W.UOSS 1984" 
PRINT 

5 FOR I = 1 TO 2500: NEXT 

10 HOME : PRINT :A^ = ".EINGABE: ":L = LEN <A^) 

20 A = 1664:E =3:1=1 
30 FOR QQ = 0 TO 1 
40 Q = A:F^ = STR% <I) 

50 POKE Q, ASC <F^> + 128 

60 FOR 2 = 1 TO L:Q = Q + 1:F^ = MI<A^,Z,1): POKE 

Q, ASC <F^) + 128; NEXT 

70 POKE Q + 1,96 

80 POKE 37,0: PRINT 

90 INPUT "";X;S = S + X 

100 = STR$ <X);LX = LEN <B^) 

110 FOR 2 = 1 TO LX:Q = Q + 1;F^ = MID^ <B^,Z,1); POKE 
Q, ASC <F$) + 128: NEXT 
120 POKE 37,0 

130 A = A + 128:1 = I + 1; IF I < = E THEN 40 

140 A = 1684;E = 6 
150 NEXT QQ 

160 A^ = "DIE SUMME BETRAEGT: ":L = LEN <A^> 

170 Q = 1447 


180 

FOR 

2 = 1 

TO 

L:Q = 

Q + 

1;F^ = 

MID^ 

<A*,2, 

1) ; 

POKE 

Q, ASC (F^) + 

128; 

NEXT 







190 

A^ = 

STR^ 

<S) 

:L = 

LEN 

<A^) 





200 

FOR 

2 = 1 

TO 

L:Q = 

Q + 

1;F^ = 

MID^ 

<A*,Z, 

1) : 

POKE 


Q, ASC (F^) + 128: NEXT 

210 FOR I = 1024 TO 1036; POKE 1,160; NEXT 
220 END 


Programmbeschreibung 


Sätze 

Inhalt 

10-20 

Es werden die Anfangswerte einiger 

Variablen festgelegt. A$ erhält den 
immer gleichbleibenden Teil des Aus¬ 
gabestrings zugewiesen und seine Län¬ 
ge wird in L gespeichert. 

Die Variable A steht für Adresse, 
ihr Anfangswert beträgt 1664; dies 
ist die Speicherstelle für das erste 

Zeichen der 6. Bildschirmzeile (Zeile 

Nr. 5). Dort soll die Anzeige begin¬ 
nen. E steht für die letzte Positions¬ 
nummer einer Eingabe im linken bzw. 
rechten Teil des Schirms, d.h. E ist 
zunächst auf 3 zu setzen. I ist der 

Zähler für die Eingaben, beginnt also 
mit dem Wert 1. 

30 

Beginn einer Schleife mit 2 Durchläufen 
für die Unterscheidung in 2 Bildschirm¬ 
teile. 

40 

Q ist die aktuell anzusprechende Spei¬ 
cherstelle, sie wird mit dem Anfangs¬ 
wert der Adressen A belegt. F$ ist 
der String, der die Ziffer für die Ein¬ 
gabenummer I enthält. 

50 

Der Code für das Bildschirmzeichen aus 
dem String F$ (hier Eingabenummer) wird 
an die Stelle Q geschrieben (hier An¬ 
fangsadresse A).. 

60 

Durch die Anweisungsfolge werden die 

Codes für alle Zeichen des Strings A$ 

(hier A$ = ".EINGABE: ") in aufeinan¬ 
derfolgende Speicherstellen geschrie¬ 
ben (deshalb wird Q jeweils um 1 erhöht). 

Da es sich um Zeichen in einer Zeile handeln 
soll, liegen die zugehörigen Adressen 
unmittelbar hintereinander. 
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Sätze 

Inhalt 

70 

Hinter dem Text soll, wie als 

Folge des erweiterten INPUT-Be- 
fehls, ein blinkendes, invers aus¬ 
gegebenes Leerzeichen erscheinen. 

Dies hat den Code 96, der also in 
die nächstfolgende Speicherstelle 
geschrieben wird. 

80 

Damit der Cursor durch den INPUT- 
Befehl der Zeile 90 nicht auf dem 
Bildschirm nach unten wandert, wird 
er durch POKE 37,0 an die erste 

Stelle oben links positioniert, das 
nachfolgende PRINT dient sozusagen 
nur der Initialisierung des POKE- 
Befehls. 

90 

Die Eingabe eines Wertes erfolgt 
nun in der oberen linken Ecke des 
Schirms; außerdem wird summiert. 

100-110 

Ab der Stelle des blinkenden Leer¬ 
zeichens werden nun alle Ziffern der 
eingegebenen Zahl für X(gegebenen¬ 
falls auch der Dezimalpunkt) in den 
Bildschimspeicher geschrieben. 

Die Befehlsfolge ist im wesentli¬ 
chen schon aus der Zeile 60 bekannt. 
Statt A0 muß jedoch die Variable B0 
für den aus X erzeugten String ver¬ 
wendet werden, da der Wert von A0 
im weiteren Verlauf des Programms 
noch benötigt wird. 

120 

Der Cursor wird wieder nach oben ge¬ 
setzt. 

130 

Nun muß zur nächsten Zeile gewechselt 
werden, deshalb wird A verändert. 

Da die nächste Zeile zur gleichen 

Gruppe von Bildschirmzeile gehört, kann 
dies durch die Addition von 128 erfol¬ 
gen, wie schon vorher erläutert wurde. 
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Sätze 

Inhalt 


Zudem wird der Zähler für die Ein¬ 
gaben um 1 erhöht und es wird ge¬ 
prüft, ob die letzte Eingabe in die¬ 
sem Bildschirmteil schon erfolgt ist. 

Wenn nicht, so werden die Zeilen 40 
bis 130 erneut durchlaufen mit verän¬ 
dertem I und verändertem Anfangswert 
für Q; diese letzte Festsetzung er¬ 
folgt in Zeile 40. 

140 

Falls I einen Wert größer als’ E er¬ 
reicht hat, sind die Eingaben auf einer 
Bildschirmseite gemacht worden und A 
muß nun wieder zurückgesetzt werden 
auf die Adresse 1684, dies ist die 

Adresse für das 21. Zeichen der 6. Zeile, 
und E, die Obergrenze für die Posi¬ 
tionsnummern der Eingaben, muß auf 6 
erhöht werden. I enthält bereits den 
neuen Wert 4. 

150 

Sämtliche Anweisungen werden jetzt noch 
einmal wiederholt, und zwar für die Be¬ 
schriftung des rechten Bildschirmteils, 
also für die vierte bis sechste Eingabe. 

160 

Die Stringvariable A0 erhält einen neuen 
Wert, nämlich den Text des Ergebnis¬ 
ausdrucks und die Variable L für seine 

Länge wird entsprechend neu belegt. 

170 

Q wird auf 1447 gesetzt, dies ist die 
letzte Stelle vor dem ersten Zeichen der 

12. Zeile. (Das entspricht dann den 3 
PRINT-Statements aus dem vorletzten Pro- 
graimn) . 

180 

Der Text aus A0 wird zeichenweise in die 
hintereinanderliegenden Speicherstellen 
ab 1448 geschrieben (da Q als erstes um 

1 erhöht wird). Die so erzeugte Bild¬ 
schirmanzeige beginnt also beim ersten 
Zeichen der 12. Zeile. 

Durch Verändern der Zeile 170 kann auch 
ein etwas eingerückter Ausdruck erreicht 
werden, z.B. durch die Festlegung Q=1453. 
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Sätze 

Inhalt 

190-200 

Die berechnete Summe S wird 
weise in die anschließenden 
stellen geschrieben. 

ziffern- 
Speicher- 

210 

Da die erste Zeile des Schirms nach 
all diesen Operationen noch Ziff-ern 
von der letzten Eingabe (Zeile 90 
für 1=6) enthält^werden die ersten 

13 Bildschirmstellen durch Leerzeichen 
ersetzt. Denkbar wäre auch, zur Si¬ 
cherheit die gesamte Zeile neu mit 
Leerzeichen zu beschreiben. Dazu müßte 
der Endwert der Schleife von 1036 auf 
1063 erhöht werden. 

220 

Ende des Programms 



Es sollen noch einige Anweisungen des vorstehenden 
Programms etwas näher erläutert werden. 

Die Zeilen 80 und 120 enthalten einen POKE-Befehl für 
die Speicherstelle 37. Der Wert dieser Stelle gibt die 
aktuelle vertikale Cursorposition an, also die Bild¬ 
schirmzeile, in der der Cursor sich gerade befindet. 
Zulässig sind Werte zwischen 0 und 23. 

Eine kurze Bemerkung noch zu den Funktionen STR0 
und ASC. 

STR0 benötigt als Argument einen numerischen Aus¬ 
druck, d.h. eine Zahl, eine numerische Variable 
oder eine Rechenfo 3 rme 1. Durch die Funktion wird 
die Zahl in einen String verwandelt, d.h. sie wird 
vom Rechner als Zeichenfolge aus Ziffern angesehen. 
Dadurch können die Stringbearbeitungsfunktionen 
LEFT^, RIGHT^ und MID0 eingesetzt werden. 
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Die Funktion wird im obigen Programm benötigt, 
da ASC nur auf Strings angewendet werden kann. 

Denn diese Funktion wandelt das erste Zeichen eines 
als Argument angegebenen Strings um in die zugehöri¬ 
ge ASCII-Codezahl. 

Da sie nur ein Zeichen jeweils "übersetzt", mußte 
in unserem Programm mehrfach auf Schleifen und die 
Funktion MID0(A3fZ,1) zurückgegriffen werden. 

Es ist darauf hinzuweisen, daß der Begriff "ASCII- 
Codezahl" nicht eindeutig ist. Darin liegt auch der 
Grund dafür, daß in den Zeilen 50,60,110,180 und 
200 nicht ASC(F0) gepokt wird, sondern dieser Wert 
noch um 128 erhöht wird. Dies liegt daran, daß die 
Code-Zahlen der Tastatur, über die ja die Zeichen ein¬ 
gegeben werden, andere sind als die Code-Zahlen des 
Bildschirms. 

Dazu ein Beispiel: Der Befehl 
PRINT ASC(" ") 

hat die Ausgabe der ASCII-Codezahl für das Leerzeichen 
zur Folge, die Anzeige ist 32. 

Durch POKE 1192,32 wird dieser Wert in die Speicher¬ 
stelle für das 1. Zeichen der Io. Bildschirmzeile ge¬ 
schrieben. Dort wird aber nicht das übliche Leerzei¬ 
chen sichtbar, sondern ein invers geschriebenes Leerzei¬ 
chen. Der Bildschirm muß drei Typen des Leerzeichens 
auseinanderhalten: ein normales, ein inverses und ein 
blinkendes, die Tastatur hingegen nicht. 

Dies gilt für alle Zeichen. 
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Üblicherweise überninunt der Rechner die Zuordnung. 

Ist weder der Befehl INVERSE noch FLASH gegeben 
worden, muß zu allen Codes, die von der Tastatur ka¬ 
men, 128 addiert werden. Ist hingegen INVERSE wirk¬ 
sam, kann der Code unmittelbar übernommen werden. 

Ist FLASH inkraft, wird der Rechner 64 addieren. 

Der aktuelle Ausgabemodus ist übrigens in der Spei¬ 
cherstelle 50 zu überprüfen: 

Inhalt 63 entspricht INVERSE, 

Inhalt 127 entspricht FLASH, 

Inhalt 255 entspricht NORMAL. 

Bei direktem Speicherzugriff wird die Übersetzungs¬ 
hilfe des Rechners umgangen, deshalb muß der Benutzer 
diese Aufgabe übernehmen. In den Handbüchern des APPLE 
finden sich die entsprechenden Code-Tabellen. 


Das letzte Programm hat wohl die Ausnutzung des direk¬ 
ten Speicherzugriffs für die Beschriftung des Bild¬ 
schirms deutlich gemacht, aber andererseits doch auch 
gezeigt, daß dadurch die Programmierung in manchen 
Fällen recht mühsam werden kann. Dies wäre noch deut¬ 
licher geworden, wenn die angesprochenen Bildschirm¬ 
zeilen nicht zu einer Gruppe gehört hätten, wie im 
Beispiel zur Vereinfachung angenommen wurde. Jedoch 
verschafft einem ein solches Programm einen besseren 
Einblick in die Arbeitsweise des Rechners, zum zwei¬ 
ten eröffnen solche Kenntnisse oft erst die Möglich¬ 
keit, bestimmte Programmieraufgaben zu bewältigen. 
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Als sehr gutes Anwendungsbeispiel dafür kann das 
PrograiTun MAS KEN GENERATOR aus dem Abschnitt 7.4 
angesehen werden. Dort sind die Kenntnisse über 
den Bildschirmspeicherbereich überaus nützlich 
eingesetzt worden; ohne diese Kenntnisse wäre die 
Programmstruktur nicht denkbar. 

4. Eine vierte Anwendungsmöglichkeit des direkten 
Speicherzugriffs betrifft die Tastatur . 

Besonders häufig wird die Kenntnis über die Tasta¬ 
tur-Speicherstellen benötigt bei folgender Aufga¬ 
benstellung: 

Ein Programm soll an einer bestimmten Stelle ange¬ 
halten werden, um dem Benutzer Gelegenheit zu ge¬ 
ben, eine Bildschirmanzeige in Ruhe zu betrachten. 

So könnte etwa das Programm Informationen zu seiner 
Bedienung ausgeben, die der Benutzer vor dem Wei¬ 
terarbeiten erst durchlesen muß. Oder es folgen mehre¬ 
re Ergebnistabellen hintereinander; dann ist eine 
Unterbrechung nötig, damit die Ergebnisse überhaupt 
wahrgenommen werden können, insbesondere wenn ein 
Drucker nicht eingesetzt werden kann. Oder das Pro¬ 
gramm liefert Fehlermeldungen, die der Benutzer vor 
der Fortsetzung des Programmablaufs zur Kenntnis 
nehmen muß. Eine andere Situation ist der Fall, daß 
das Programm durch einen Tastendruck abgebrochen 
wird. 

Für beide Fälle sollen kleine Beispielprogramme vor¬ 
gestellt werden. 
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Soll ein Programm angehalten werden, bis der 
Benutzer eine Fortsetzung wünscht, kann natürlich 
der Befehl 


STOP 


an geeigneter Stelle im Programm eingefügt werden. 
Nach der Eingabe von 


CONT 


über die Tastatur, wird der Ablauf des Programms 
genau an der Unterbrechungsstelle wieder aufgenom¬ 
men: 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9); PRINT "R.PRUST / N.OOSS 1984": 
PRINT 

5 FÜR I = 1 TO 2000: NEXT 

10 HOME : PRINT "DIESES PROGRAMM DIENT ZUR DEMONSTRATION"; 
PRINT ; PRINT "ES SQLL DEUTLICH MACHEN, AUF WELCHE ART"; 
PRINT ; PRINT "EIN PROGRAMM UNTERBROCHEN UND WIEDER"; PRINT 
; PRINT "FORTGESETZT WERDEN KANN." 

20 PRINT ; PRINT ; PRINT ; PRINT ; PRINT "SIE KOENNEN 
DAS PROGRAMM FORTSETZEN "; PRINT ; PRINT "DURCH EINGABE 
OON ";; INOERSE ; PRINT " CONT ";; NORMAL ; PRINT " UEBER 
DIE"; PRINT ; PRINT "TASTATUR." 

30 STOP 

40 HOME ; PRINT " I"," 13^1"; PRINT 
50 FOR I = 1 TO 50 

60 PRINT I,I X I; IF I / 10 < > INT <I / 10) THEN NE>a 

I 

70 STOP ; PRINT ; PRINT : IF I < >50 THEN NEXT I 

80 PRINT "DAS PROGRAMM IST BEENDET." 

90 END 
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Der Benutzer erhält zunächst eine Information 
über das/ was das Programm leistet, danach eine 
Bedienungshilfe, wie er sich bei Unterbrechung 
zu verhalten hat. Nach dem ersten STOP in Zeile 
30 erfolgt eine entsprechende Meldung auf dem 
Schirm. Nach CONT fährt der Rechner mit der Pro¬ 
grammausführung fort. Nun folgt ein einfaches 
Programm, das die Zahlen von 1 bis 50 und ihre 
Quadratzahlen ausgibt. Nach jeweils 10 Zeilen 
wird das Programm wieder unterbrochen mit einer 
entsprechenden Meldung und muß mit CONT fortge¬ 
setzt werden. 

DIESES PROGRAMM DIENT ZUR DEMONSTRATION 
ES SOLL DEUTLICH MACHEN, AUF WELCHE ART 
EIN PROGRAMM UNTERBROCHEN UND WIEDER 
FORTGESETZT WERDEN KANN. 


SIE KOENNEN DAS PROGRAMM FORTSETZEN 

DURCH EINGABE OON CONT UEBER DIE 

TASTATUR. 

BREAK IN 30 
3 CONT 

I I^I 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


1 

4 

9 

16 

25 

36 

49 

64 

81 

100 


BREAK IN 70 
3 CONT 

DAS PROGRAMM IST BEENDET. 
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Die Meldungen 

BREAK IN 30 oder BREAK IN 70 

verhindern aber eine gute Bildschirmgestaltung; 
außerdem muß der Benutzer wissen, daß es sich 
nicht um eine Fehlermeldung handelt. Und nicht 
zuletzt ist es lästig, immer CONT einzutippen. 

Eine erste Verbesserungsmöglichkeit bietet der 
GET-Befehl, wie er im nachfolgenden Programm ein¬ 
gesetzt wird: 


3 HOME ; HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ! PRINT : HTAB (9): PRINT "R.PRUST / N.L»OSS 1984"; 
PRINT 

5 FOR I = 1 TO 2000; NEXT 

10 HOME ; PRINT "DIESES PROGRAMM DIENT ZUR DEMONSTRATION"; 
PRINT ; PRINT "ES SOLL DEUTLICH MACHEN, AUF WELCHE ART"; 

PRINT ; PRINT "EIN PROGRAMM UNTERBROCHEN UND WIEDER”; PRINT 
; PRINT "FORTGESETZT WERDEN KANN.” 

30 GOSUB 200 

40 HOME ; PRINT " I"," I^I"; PRINT 
50 FOR I = 1 TO 50 

60 PRINT I,IXI:IFI/10< > INT <I / 10) THEN NEXT 
I 

70 GOSUB 200; PRINT : PRINT ; IF I < >50 THEN HOME 

; PRINT ” I”," IXI”; PRINT ; NEXT I 

80 L>TAB 22; PRINT "DAS PROGRAMM IST BEENDET." 

90 END 

200 L>TAB 22; HTAB 6; INL>ERSE ; PRINT "DRUECKEN SIE IRGENDEINE 
TASTE"; NORMAL 

210 GET A^; IF A^ = THEN 210 
220 k)TAB 22; CALL - 958; RETURN 
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Programmbeschreibung 


Sätze 

Inhalt 

10 

Der Text erläutert, wozu das Programm 
dient. Die Zeile 20 des vorigen Pro¬ 
gramms ist entfallen. Erklärungen 
zur Bedienung sind vorab nicht nötig. 

30 

Sprung ins Unterprogramm ab Zeile 200, 
das zur Unterbrechung führt. 

40 

Die Bildschirmausgabe wird vorbereitet: 

Der Schirm wird gelöscht und die Über¬ 
schrift wird angezeigt; eine Leerzeile 
folgt. 

50 

Schleifenbeginn 

60 

Nach Ausgabe des Ergebnisses wird ge¬ 
prüft, ob schon 10 Zahlen angezeigt 
wurden. Wenn nicht, erfolgt die Ausga¬ 
be der nächsten Zeile. 

70 

Sprung ins Unterprogramm, da nach 10 

Zahlen eine Unterbrechung erfolgen soll. 
Danach wird geprüft, ob noch ein weite¬ 
rer Block ausgegeben werden muß. 

Falls ja, wird der Bildschirm wieder ge¬ 
löscht und die Überschrift erfolgt mit 
nachfolgender Leerzeile. 

Anschließend wird die Schleife fortgesetzt. 

80 

Falls I in Zeile 70 bereits auf dem Höchst¬ 
wert 50 stand, erfolgt in der Bildschirm¬ 
zeile 21 (in der 22. Zeile) eine Meldung, 
daß das Programm beendet ist. 

90 

Ende des Programms 
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Sätze 

Inhalt 

200-220 

Unterprogramm zur Unterbrechung 

200 

In der 22. Bildschirmzeile erfolgt 
die Anweisung, wie das Programm fort¬ 
gesetzt werden kann, nämlich durch 
einen beliebigen Tastendruck, und zwar 
erscheint der Text invers und um 5 

Stellen nach rechts verrückt. 

Anschließend wird zum normalen Ausgabe¬ 
modus zurückgekehrt. 

210 

Durch den GET-Befehl wird das Programm 
solange unterbrochen, bis eine Tastatur¬ 
eingabe erfolgt. Solange A0 noch der 
leere String ist, wird immer wieder die 
Zeile 210 durchlaufen. 

220 

Nach Löschen der Zeile 22 durch CALL- 
958 kehrt der Rechner zum Hauptprogramm 
zurück. 


Mit dieser Änderung des Programms hat man zweierlei 
erreicht: Zum einen reicht nun ein einziger Tastendruck 
aus, um im Programmablauf fortfahren zu können, zum 
anderen wird der Bildschirmausdruck nicht durch Mel¬ 
dungen des Rechnerbetriebssystems verdorben. 

Außerdem reicht eine Einzeilenmeldung des Programms 
aus, um den Benutzer über die Bedienung zu informie¬ 
ren . 

Trotzdem hat diese Art der Programmierung einen Nach¬ 
teil. Werden aus Versehen oder aus Unkenntnis zwei Ta¬ 
sten gedrückt, so bleibt das zweite Zeichen im Tasta¬ 
turpuffer stehen, so daß beim nächsten GET der Rech¬ 
ner nicht mehr auf eine neue Eingabe wartet. 
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Ein zweiter Nachteil liegt in unerklärlichen Inter¬ 
aktionen begründet zwischen dem GET-Befehl und 
einigen DOS-Befehlen. 

Beiden Problemen kann man bei folgender Programmver¬ 
sion ausweichen: 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / W.L^OSS 1984": 
PRINT 

5 FOR I = 1 TO 2000: NEXT 

10 HOME : PRINT "DIESES PROGRAMM DIENT ZUR DEMONSTRATION": 
PRINT : PRINT "ES SOLL DEUTLICH MACHEN, AUF NELCHE ART": 

PRINT : PRINT "EIN PROGRAMM UNTERBROCHEN UND WIEDER"; PRINT 
; PRINT "FORTGESETZT WERDEN KANN." 

30 GOSUB 200 

40 HOME : PRINT " I"," 1561": PRINT 
50 FOR I = 1 TO 50 

60 PRINT I , I 56 I : IF I / 10 < > INT <I / 10) THEN NEXT 

I 

70 GOSUB 200: PRINT ; PRINT : IF I < >50 THEN HOME 
: PRINT " I"," 1561"; PRINT ; NEXT I 
80 22; PRINT "DAS PROGRAMM IST BEENDET." 

90 END 

200 L^TAB 22: HTAB 6: I^NL^ERSE : PRINT "DRUECKEN SIE IRGENDEINE 
TASTE"; NORMAL 

210 POKE - 16368,0: WAIT - 16384,128: POKE - 16368,0 
220 L>TAB 22; CALL - 958: RETURN 
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Das Hauptprogranmi bis Zeile 90 ist nicht verändert 
worden, nur das Unterprogramm und dort nur die Zeile 
210 . 

In der Speicherstelle 49 152 (oder -16 384 als Kom¬ 
plement zu 65 536 ) wird registriert, ob überhaupt 
eine Taste gedrückt wurde, bzw. ob der Code für die 
letzte gedrückte Taste schon weitergeleitet werden 
konnte. Um vor Überraschungen sicher zu sein, wird 
der Wert dieser Stelle auf 0 gesetzt, damit nicht al¬ 
te Tastatureingaben berücksichtigt werden. 

Der Befehl WAIT ist eine Spezialität des APPLE, er 
stellt sozusagen ein bedingtes STOP dar mit nachfol¬ 
gendem automatischen CONT. 

Das Programm bleibt unterbrochen, solange der Inhalt 
der Speicherstelle nicht mindestens so groß ist wie 
der im Befehl genannte Wert. 

Die allgemeine Form des Befehls ist 


WAIT adresse,wert 


Die im Beispiel genannte Adresse -16 384 (bzw. 49 168 ) 
enthält Informationen über die letzte Tastatureingabe. 
Wurde eine Taste gedrückt, steht dort ein Wert, der 
mindestens 128 ist. Daher die spezielle Form des Be¬ 
fehls. 
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Wie sieht es nun im zweiten Fall aus, in dem ein 
Programm solange durchgeführt wird, bis entweder 
END erreicht ist oder aber eine Unterbrechung durch 
den Benutzer gewünscht wird? 

Wieder wurde das Beispiel des Ausdrucks von Zahlen 
und ihrer Quadratzahlen gewählt. Allerdings jetzt 
nicht in Form einer FOR...NEXT-Schleife, sondern 
als potentielle Endlosschleife: 


3 HOME : HTAB <9): PRINT “APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB <9): PRINT "R.PRUST / W.UOSS 1984" 
PRINT 

5 FOR Q = 1 TO 2000: NEXT 
10 HOME : POKE 37,21: PRINT 

20 INL>ERSE : PRINT "ZUR BEENDIGUNG DES PROGRAMMS:": PRINT 
: HTAB 10: PRINT "DRUECKEN SIE IRGENDEINE TASTE";: NORMAL 

30 SPEED= 150 
40 POKE 35,20: HOME 
50 POKE - 16368,0 
60 I = I + 1 
70 PRINT I,I X I 

80 IF PEEK < - 16384)’ < 128 THEN 60 
90 POKE - 16368,0 
100 SPEED= 255: TEXT 
110 END 
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Programmbeschreibung 


Sätze 

Inhalt 

10 

Nach dem Löschen des Bildschirms 
wird der Cursor auf die Zeile 21 
positioniert, durch das nachfol¬ 
gende PRINT wird der Befehl erst 
wirksam. 

20 

Dort erfolgt nun eine Bedienungs¬ 
anleitung für den Benutzer. 

30 

Durch den Befehl SPEED= kann die 
Ausgabegeschwindigkeit für den Bild¬ 
schirm verändert werden. Üblicher¬ 
weise steht SPEED auf 255. Hier wird 
eine Reduzierung vorgenommen, damit 
die nachfolgenden Anzeigen besser les¬ 
bar sind. 

40 

Der untere Teil des Bildschirms wird 
gesperrt. 

50 

Genau wie im vorherigen Programm soll 
vermieden werden, daß alte Tastatur¬ 
eingaben berücksichtigt werden. 


Berechnung und Ausgabe 

80 

Durch diese bedingte Sprunganweisung 
wird erreicht, daß die Zeilen 60 
und 70 immer wieder durchlaufen wer¬ 
den, solange wie der Wert der Speicher¬ 
stelle -16384 für die Tastatureingabe 
kleiner als 128 ist. 

Sobald eine Taste gedrückt wird, steigt 
der Wert der Speicherstelle auf 128 oder 
mehr und die "Endlos"-Schleife wird ab¬ 
gebrochen . 

90 

Da die eben gemachte Eingabe nicht vom 
Rechner verarbeitet werden soll, wird 
-16 368 wieder auf 0 gesetzt. 





Sätze 

Inhalt 

100 

Die Ausgabegeschwindigkeit wird wie¬ 
der auf den üblichen Wert gesetzt. 

Durch den Befehl TEXT werden POKE- 
Befehle für das Bildschirmfenster 
wieder aufgehoben. 

110 

Ende des Programms 


Einsatzmöglichkeiten für Programmunterbrechungen wer¬ 
den noch deutlicher im Kapitel 5, bzw. im Abschnitt 
7.4. Doch sollte es auch jetzt schon dem Leser mög¬ 
lich sein, bei einigen seiner Programmieraufgaben die 
vorstehenden Anregungen aufzugreifen und nützlich ein¬ 
zusetzen . 


Bei diesen 4 Bereichen der Anwendung von direktem Spei¬ 
cherzugriff wollen wir es in diesem Kapitel belassen. 

Es hätten sicher noch eine Vielzahl weiterer Problem¬ 
bereiche aufgeführt werden können, jedoch nur bei Ver¬ 
zicht auf einige Programmbeispiele; dem praktischen 
Einsatz sollte jedoch der Vorrang vor der Vollständig¬ 
keit eingeräumt werden. 





3.2. Die Benutzung von ASSEMBLER-Programmen 


3.2.1 Grundlagen 

Der Benutzer eines Mikrocomputers, wie z.B. des 
APPLE, geht häufig davon aus, daß die hier im Mit¬ 
telpunkt stehende Programmiersprache, nämlich die 
Sprache BASIC, die einzige Möglichkeit darstellt, 
mit dem APPLE zu kommunizieren. 

Dem ist aber nicht so. Es gibt eine ganze Reihe wei¬ 
terer Programmiersprachen, die teilweise auch beim 
APPLE verwendet werden können^- zumindest wenn man 
beispielsweise per Diskette die notwendigen Über¬ 
setzungsprogramme (Compiler) bereitstellen kann. 

Es ist deshalb ganz sinnvoll, zunächst einmal kurz 
und in allgemeiner Weise über die verschiedenen Pro¬ 
grammiersprachen zu sprechen, um dann speziell auf 
die Möglichkeiten und den Nutzen von ASSEMBLER ein¬ 
zugehen. 

Die ursprüngliche, einem Rechner direkt verständliche 
Sprache, kann im Grunde nur aus den beiden Symbolen 
0 und 1 aufgebaut werden, die stellvertretend für die 
beiden Zustände "Stromkreis offen" und "Stromkreis ge¬ 
schlossen" stehen. Eine solche Maschinensprache wäre 


natürlich für uns nur sehr schwer handhabbar. 
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Daher hat man sich schon sehr früh daran gemacht, 
solche Sprachelemente zu vereinbaren, die sich der 
uns geläufigen Symbole bedienen. 

Eine dieser Sprachen ist die Sprache ASSEMBLER. 

Dabei bedeutet dieser Begriff ASSEMBLER im Grunde 
zweierlei: 

1. Zum einen handelt es sich - wie eben ausge¬ 
führt - um eine (maschinenorientierte) Pro¬ 
grammiersprache; deshalb haben wir oben Groß¬ 
buchstaben verwendet. 

2. Zum anderen wird auch häufig mit dem gleichen 
Begriff das Übersetzungsprogramm gemeint, das 
ein Assembler-Programm in ein Maschinenpro¬ 
gramm "zurückübersetzt". 

Die Programmierung in ASSEMBLER macht also ein Über¬ 
setzungsprogramm erforderlich, das schlicht auch Assemb 
1er heißt und in der Regel per Diskette geladen werden 
muß. 

Die Entwicklung einer solchen, nun etwas benutzerfreund 
lieberen Computersprache war allerdings auch mit einem 
Nachteil verbunden: 

Die Rückübersetzung vom sog. Quellenprogramm (source 
program) in das Maschinenprogramm (object program) ko¬ 
stet Rechenzeit und verbraucht Speicherkapazität wegen 
der Haltung des Übersetzungsprogramms. 
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Mit zunehmender Leistungsfähigkeit der Rechnung be¬ 
züglich der Speicherkapazität und der Rechengeschwin¬ 
digkeit war dieser Nachteil aber leicht in Kauf zu 
nehmen. 

Im Gegenteil; Man ging noch weiter und entwickelte 
Programmiersprachen, die noch weitaus benutzerfreund¬ 
licher sind als etwa die verschiedenen ASSEMBLER- 
Sprachversionen. 

Diese benutzerorientierten Sprachen zeichneten sich 
vor allem dadurch aus, daß die umständliche Speicher¬ 
adressierung, die in ASSEMBLER noch notwendig ist, nun 
wegfällt. Dadurch sind diese Sprachen, die allerdings 
wiederum zusätzliche Rückübersetzungsprozesse erfor¬ 
derlich machen, relativ leicht erlernbar und haben 
sich rasch durchsetzen können. 

Die wichtigsten und bekanntesten dieser Sprachen sind 
die folgenden: 

- FORTRAN (Formula Tran slation): 

Vor allem für wissenschaftlich-technische 
Probleme geeignet; 

- COBOL (Common Business Oriental Language); 

Vor allem im betrieblichen Bereich die 
generelle Sprache; 

- ALGOL ( Algo rithmic Language); 

Vor allem für mathematische Problemstel¬ 
lungen geeignet. 
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Zu dieser Gruppe von benutzerorientierten Fragen 
gehört in neuerer Zeit auch BASIC (Beginner's 
All-purpose Symbolic ^nstruction Code). 

Die Verwendung dieser Benutzersprachen ist mit wach¬ 
senden Rechenzeiten verbunden. Deshalb verlaufen ins¬ 
besondere solche Prozeduren, die sich aus einer großen 
Zahl sich wiederholender einfacher Einzelschritte auf¬ 
bauen, vergleichsweise langsam. 

Gerade solche einfachen Arbeitsschritte eignen sich 
sehr gut dazu, nach wie vor in ASSEMBLER programmiert 
zu werden, um dann z.B. in BASIC-Programme eingebaut 
zu werden. Dadurch kann eine Beschleunigung der Ge¬ 
samtrechenzeiten erreicht werden. Genau damit werden 
wir uns im folgenden beschäftigen. 

In diesem Kapitel geht es nun allerdings nicht darum, 
aus dem Leser perfekte ASSEMBLER-Programmierer zu 
machen, sondern es sollen Grundzüge dieser Programmier¬ 
sprache vermittelt werden, die ein Verständnis ermög¬ 
lichen für den Einbau von ASSEMBLER-Unterprogrammen 
in BASIC-Programme. 

Um dieses Grundverständnis zu fördern, ist es sinn¬ 
voll, zunächst einen kurzen Blick auf zwei in der Da¬ 
tenverarbeitung außerordentlich wichtige Zahlensysteme 
zu werfen - das Binär- und das Hexadezimalsystem. 
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Das Binärsystem verfügt nur über die beiden Ziffern 
0 und 1. Um nun verstehen zu können, was z.B. 1101101 
bedeutet, werfen wir einmal einen Blick auf eine be¬ 
liebige Dezimalzahl: 

2348 

Diese Zahl läßt sich zerlegen in 
2?lf1000 + 3*100 + 4*10 + 8*1 

= 2 * 10 ^ + 3 * 10 ^ + 4 * 10 ^ + 8 * 10 ^^ 

Darags können wir folgende generelle Regel entnehmen: 

Jede Zahl läßt sich zerlegen in eine Summe, die so 
viele Summanden wie die zu zerlegende Zahl Ziffern hat. 
Jeder Summand ist ein Produkt aus zwei Faktoren. 

Der erste Faktor entspricht der jeweiligen Ziffer der 
zu zerlegenden Zahl; der zweite Faktor ist eine Zehner¬ 
potenz, wobei die Exponenten ganze Zahlen von Z-1 ab¬ 
wärts darstellen, wenn Z die Ziffernanzahl ist. 

Der gleiche Satz gilt auch im Binärsystem (und in je¬ 
dem anderen Zahlensystem auch), mit dem Unterschied, 
daß anstelle des Wortes "Zehnerpotenz" nun "Zweierpo¬ 
tenz" stehen muß. 

Somit können wir nun auch die Zahl 1101101 erklären 
(Verwandlung einer Binärzahl in eine Dezimalzahl): 
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1101101 = 




= 1*64 + 1*32 
=64 + 32 

= ^^^ 10 ) 


+ 0 * 2 ^^ + 1 * 2 ^ + 1 * 2 ^ + 0 * 2 ^ + 1 * 2 ^ 

+ 0*16 + 1*8 + 1*4 + 0*2 + 1*1 
+ 8 + 4 + 1 


Umgekehrt läßt sich eine beliebige Dezimalzahl in 
eine Binärzahl umwandeln, indem wir sie mit Zweier¬ 
potenzen "auffüllen" - mit den größtmöglichen be¬ 
ginnend. 

Was bedeutet 93 im Binärsystem? 


2*64 + 0*32 + + 2*8 + 1*4 + 0*2 + 

= 1011101 ( 2 ) 

Stellt man einmal die Zahlen des Dezimalsystems und 
des Binärsystems einander gegenüber, so erhält man 


Dezimal 

Binär 

0 

0 

1 

1 

2 

10 

3 

11 

4 

100 

5 

101 

6 

1 10 

7 

111 

8 

1000 

9 

1001 




Man erkennt, daß man vierstellige Binärzahlen braucht, 
wenn die 10 Ziffern des Dezimalsystems im Rechner 
dargestellt werden soll. 

Wenn man aber schon 4 Stellen zu reservieren hat, könnte 
man in diesen Speicherstellen mehr unterbringen als nur 
10 verschiedene Symbole (0, 1, ..., 9), was leicht zu 
erkennen ist, wenn man in der zweiten Spalte der obigen 
Tabelle einfach "weiterzählt". 


Dezimal 

Binär 

8 

1000 

9 

1001 

10 

1010 

11 

101 1 

12 

1100 

13 

1 101 

14 

1110 

15 

1111 


Diese Tabelle zeigt, daß auf vier Binärstellen 
maximal 16 verschiedene Symbole untergebracht werden 
können (0, 1, ..., 15). 

Dies erklärt die Bedeutung des Hexadezimalsystems in 
der Datenverarbeitung. Es garantiert die optimale Aus¬ 
nutzung der zur Verfügung stehenden Speicher. 

Gezählt wird in diesem System mit 16 Ziffern wie folgt: 
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Dezim. 

binär 

Hex. 

Dezim. 

binär 

Hex. 

0 

0 

0 

11 

1011 

B 

1 

1 

1 

12 

1100 

C 

2 

10 

2 

13 

1101 

D 

3 

1 1 

3 

14 

1110 

E 

4 

100 

4 

15 

1111 

F 

5 

101 

5 

16 

10000 

10 

6 

110 

6 

17 

'10001 

1 1 

7 

111 

7 

18 

10010 

12 

8 

1000 

8 

19 

1001 1 

13 

9 

1001 

9 

20 

10100 

14 

10 

1010 

A 

• 

• 



Die Beziehungen zwischen Dezimal- und Hexadezimal¬ 
system lassen sich am einfachsten wieder an den Um¬ 
wandlungen von dem einen System ins andere erläutern. 

Will man eine Hexadezimalzahl in eine Dezimalzahl um¬ 
wandeln, so gilt der allgemeine Zerlegungssatz von 
oben. 

Beispiel; 

10FA(^6)= 

1*16^ + 0*16^ + F*16^ + A«16® 

= 1*4096 +0 + 15*16 + 10*1 

= 4096 + 240 + 10 = 4346j^^j 






119 


Will man umgekehrt eine Dezimalzahl in eine Hexa¬ 
dezimalzahl verwandeln, so ist sie mit 16er-Potenzen 
zu füllen. 

Beispiel; 


1*16^ + 12*16^ + 10*16® 

= ^4*256 + CäI 6 + AäI 

= ^^*( 16 ) 

Die Betrachtung des Hexadezimalsystems ist in diesem 
Zusammenhang deshalb ganz sinnvoll, weil die ASSEMBLER- 
Anweisungen, die - wie wir noch sehen werden - aus 
Worten bestehen, die aus drei Buchstaben aufgebaut wer¬ 
den, in Hexadezimalzahlen verwandelt werden. 

Hinzu kommt, daß die Speicheradressen, die - etwa zum Zwecke 
der internen Datentransformation - angegeben werden 
müssen, als Hexadezimalzahlen einzugeben sind. 

Wir wollen hier die einzelnen ASSEMBLER-Anweisungen 
nicht besprechen, sondern verweisen dazu auf die ent¬ 
sprechende Spezialliteratur (siehe z.B.: R. MOTTOLA: 
Assembly Language Programming for the Apple II, Osborne/ 
McGraw Hill, 1982). 

Generell gilt, daß jede ASSEMBLER-Anweisung aus fünf 
Teilen (Feldern) aufgebaut wird (nicht alle fünf Fel¬ 
der müssen notwendigerweise besetzt werden, aber das 
soll hier nicht interessieren)! 
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ASSEMBLER-Anweisung; Schematischer Aufbau 


Satz Nr. 

Etikett 

Mnemonic 

Argument 

Korrmentar 

1 

2 

3 

4 

5 


Beispiele: 

1000 VALl EQU 30B ; ZUORDNUNG(LET) 

1100 ADD LDA VALl ; Laden des A- 

REGISTERS 

Die zentrale Position ist das Feld 3; Dort steht 
das Schlüsselwort der ASSEMBLER-Anweisung. 

In der Zeile 1000 ist dies die Anweisung EQU, wel¬ 
che bewirkt, daß die Speicheradresse 

(=779mit einem Wert belegt wird. 

Im ersten Feld steht eine obligatorische Satznummer, 
an der zweiten Stelle kann (aber muß nicht) ein "Eti¬ 
kett" stehen, welches als "Ansprungetikett" benutzt 
werden kann, wenn es als Argument (Feld 4) in einer an¬ 
deren Anweisung benutzt wird (siehe Satz 1100). 

In Feld 4 steht ein Argument, das aber nur bei man¬ 
chen Anweisungen erforderlich ist^- vergleichbar etwa 
dem INPUT-Statement in BASIC, das ohne Variablennamen 
als Argument ja nicht verwendet werden könnte - im 
Gegensatz etwa zur BASIC-Anweisung RETURN. 
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Im letzten Feld kann ein erläuternder Kommentar 
angefügt werden. Er ist häufig z.B. durch ; oder durch 
* abzutrennen - je nachdem, welche ASSEMBLER-Version 
man benutzt. Bleiben beispielsweise die Felder 1 bis 
4 unbesetzt, entstehen reine Kommentaranweisungen, die 
mit der REM-Anweisung aus BASIC zu vergleichen sind. 

Betrachten wir nun einmal ein komplettes ASSEMBLER- 
Programm, das wir aus dem erwähnten Buch von MOTTOLA 
entnehmen (S. 25/26). 

Das folgende Programm dient dazu, das Wort ERR auf dem 
Bildschirm auszugeben, veranlaßt zwei akustische Sig¬ 
nale über den Lautsprecher des APPLE und verhindert 
den Zeilenvorschub nach Ausgabe von drei Leerzeichen. 

Ein solches Programm könnte sehr gut dazu benutzt wer¬ 
den, um z.B. Eingabefehler anzuzeigen. 

Bei diesem Programm wird teilweise auf Maschinen¬ 
unterprogramme zurückgegriffen, über die der APPLE II 
im ROM-Speicher schon verfügt, nämlich auf Programme, 
die unter folgenden Startadressen stehen. 

FF2D^^gj : Ausdruck ERR und Piepston 
FBDD^-jgj : Piepston 

F948^^gj : Ausgabe von drei Leerzeichen 

Für die erste und die dritte Adresse hat der APPLE 
schon Etiketten zur Verfügung, nämlich PRERR und 
PRBLNK. Der zweiten Adresse können wir z.B. das Eti¬ 
kett BELL zuordnen (es ist generell empfehlenswert. 
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schon existierende und dokumentierte Etiketten zu 
nutzen). 


Das Programm könnte nun folgendermaßen aussehen: 


1 

PRBLNK 

EQU 

F948 


2 

BELL 

EQU 

FBDD 


3 

PRERR 

EQU 

FF2D 


4 

ERROR 

JSR 

PRERR 

;DRUCKE "E 

5 


JSR 

BELL 

;PIEPSEN 

6 


JSR 

PRBLNK 

;3 BLANKS 

7 


RTS 


; RETURN 

8 


END 




In den ersten drei Zeilen erfolgen die notwendigen 
Zuordnungen zu Etiketten. In den Zeilen 4-6 wird in 
diejenigen Unterprogramme verzweigt, die die oben ge¬ 
nannten Aufgaben erledigen. In Satz 7 erfolgt der Rück¬ 
sprung und mit Satz 8 wird das Programm beendet. 

Dieses ASSEMBLER-Programm tut von sich aus noch nichts - 
genausowenig wie ein BASIC-Programm etwas tut, bevor 
das Kommando RUN eingegeben wird. 


Bevor ein ASSEMBLER-Programm abgearbeitet werden kann, 
muß es aber zunächst "assembliert", d.h. in die ma¬ 
schinenverständliche Form zurückübersetzt werden. 

Dies geschieht nach Eingabe des Kommandos ASM (und na¬ 
türlich nur dann, wenn dem APPLE über Diskette ein 
ASSEMBLER-(übersetzungs-)Programm zur Verfügung gestellt 
wurde). 

Mit dem Kommando ASM wird neben dem Quellenprogramm 
das Objektprogramm erzeugt, das folgendermaßen aussieht: 
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**END OF PASS l 
**END OF PASS 2 


übUO 

UbOÜ 

Obüü 

übüü 

übOO 

Obüü 

übUÜ 

ObOü 


************************* 

THIS SCBROUTINE WILL 
PRINT "ERR", BEEP 
THE SPEAKER TWICE, 

THEN PRINT 3 BLANKS 

************************* 


OdOü 


9 

PRBLNK 

EQU 

$F948 


übuu 


10 

BELLlA 

EQÜ 

$FBDD 


ObOü 


11 

PRERR 

EQU 

$FF2D 


übOü 


12 

; 




übüü 


13 

7 




ObOü 

2U2DFP 

14 

ERROR 

JSR 

PRERR 

;PRINT "ERR" 

üb03 

2UDDFB 

15 


JSR 

BELLlA 

;BEEP SPEAKER 

0806 

2Ü46F9 

16 


JSR 

PRBLNK 

;PRINT 3 BLANKS 

udÜ9 

60 

17 


RTS 


;THEN RETURN 



18 


END 




***** end OF ASSEMBLY 

************************* 
* * 

SYMBOL TABLE -- V 1.5 * 

* * 

************************* 


LABEL. LOC. LABEL. LOC. LABEL. LOC. 
** ZERO PAGE VARIABLES; 


** ABSOLUTE VARIABLES/LABELS 

PRBLNK F94b BELLlA FBDD ^PRERR FF2D ERROR übOO 

SYMBOL TABLE STARTING ADDRESS;6000 
SYMBOL TABLE LENGTH;Ü032 
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Nach der Assemblierung ist erkennbar, daß das 
Objektprogramm numeriert wird, und zwar mit der Hexa¬ 
dezimalzahl 800 beginnend. Diese Zeilennummer ändert 
sich nicht, bis zur ersten Zeile des "Programmkerns", 
d.h. bis zur Zeile mit dem Etikett "ERROR". 

Dies bedeutet, daß das eigentliche Objektprogramm nur 
aus der Zeilengruppe besteht, die mit der ERROR-Zeile 
beginnt und mit der RETURN-(=RTS-)Zeile endet. 

Die übrigen Zeilen sind nicht assembliert worden - und 
dies ist auch nicht notwendig - genausowenig wie bei¬ 
spielsweise REM-Anweisungen in BASIC-Programmen über¬ 
setzt werden. 

Es wird in obiger Programmliste deutlich, daß auch 
die EQU-Zeilen (vergleichbar mit den LET-Anweisungen 
in BASIC) nicht assembliert worden sind. Gleichwohl 
werden diese aber berücksichtigt, wie aus der sog. Sym¬ 
boltabelle deutlich wird. EQU erzeugt also keine Ob¬ 
jektcode-Anweisung, jedoch wird der ASSEMBLER angewie¬ 
sen, etwas zu tun. Insoweit nimmt diese Anweisung (wie 
einige andere auch) quasi eine Zwischenstellung ein 
zwischen einer Anweisung, die in den Objektcode assem¬ 
bliert wird und einer Anweisung, die völlig übergangen 
wird (wie z.B. die Kommentar-Anweisungen, die mit ; 
eingeleitet werder^. Man nennt eine derartige Anweisung 
" Assembler-Direktive " oder "Pseudo-op". 

Eine besonders wichtige dieser Direktiven ist die 
Anweisung ORIGIN, die die Startadresse für den Objekt¬ 
code festlegt (Voreinstellung für die Startadresse ist 
beim hier verwendeten LISA-Assembler die Hexadezimal¬ 
adresse 800) . 
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Will man eine andere Startadresse verwenden - und 
dies ist zumindest dann erforderlich, wenn mehrere 
ASSEMBLER-Programme aus einem Hauptprogramm heraus auf¬ 
gerufen werden sollen - dann kann dies mit der Anwei¬ 
sung ORG (=ORIGIN) geschehen. Allerdings muß dann auch 
mitgeteilt werden, ab welcher Startadresse der Code 
während des Assemblierens (und nicht nur danach) ge¬ 
speichert werden soll. Nur so kann ein unter Umständen 
unerfreuliches Durcheinander von Assembler (Übersetzungs¬ 
programm) , Quellenprogramm und Objektprogramm vermie¬ 
den werden. 

Die Anweisung, die die Startadresse für das Objektpro¬ 
gramm angibt, heißt OBJ. 

Also fügt man z.B. die folgenden beiden Anweisungen am 
Anfang des Programms ein: 

ORG 300 ; Neue Startadresse des Programms 

OBJ 800 ; Startadresse des Codes während 
der Assemblierung 


Das Programm sieht jetzt also folgendermaßen aus: 
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THIS SUBROUTINE WILL 


3 

•PRINT 

"ERR", 

BEEP 


4 

;THE SPEAKER 

TWICE, 


5 

;THEN 

PRINT 3 

BLANKS 


6 

;* ** * * ***** 




7 

; 




8 

; 




y 


ORG 

53ÜU 


lu 


OBJ 

580U 


ll 

; 




12 

; 




13 

PRBLNK 

EQU 

$F94b 


14 

BELLIA 

EQU 

$FBDD 


15 

PRERR 

EQU 

5FP2D 


16 

; 




17 

i 




18 

ERROR 

JSR 

PRERR 

;PRINT "ERR" 

15 


JSR 

BELLIA 

;BEEP SPEAKER 

2U 


JSR 

PRBLNK 

;PRINT 3 BLANKS 

21 


RTS 


;THEN RETURN 

22 


ENO 




Wenn wir dieses Prograimn nun assemblieren, so 
ergibt sich: 


**END OF PASS i 
**END OP PASS 2 


ÜBÜO 


l' 




übUU 


2 

THIS ! 

SUBROUTINE WILL 

06ÜU 


3 

PRINT 

■ERR", 

BEEP 

U80U 


4 

THE SPEAKER 

TWICE, 

08ÜU 


c 

THEN 

PRINT 3 

BLANKS 

UBOU 


6 




ObOÜ 


7 




O&Oü 


b 




03ÜÜ 


5 


ORG 

63UÜ 

03U0 


lü 


OBJ 

6BÜÜ 

Ü3U0 


11 : 




03ÜU 


12 : 




U3UU 


13 PRBLNK 

EQU 

SF94b 

03UÜ 


14 BELLIA 

EQU 

$FBDD 

U3UU 


15 PRERR 

EQU 

SFF2D 

Ü300 


16 




03uu 


17 




03UO 

2Ü2DFP 

Ib ERROR 

ENO 

PRERR ■ 

03U3 

2ÜDDFB 

19 


JSR 

BELLIA 

U3ü6 

2ü4bF5 

20 


JSR 

PRBLNK 

U3U5 

6U 

21 


RTS 




22 


END 




ASSEMBLY 




jPRINT "ERR" 
;BEEP SPEAKER 
;PRINT 3 BLANKS 
;THEN RETURN 


* SYMBOL TABLE — V 1.5 


LABEL. LOC. LABEL. LOC. LABEL. LOC. 

** ZERO PAGE VARIABLES: 

** ABSOLUTE VARIABLES/LABELS 

PRBLNK Fy48 BELLIA FBDD PRERK FF2D ERROR 

SYMBOL TABLE STARTTNG ADDRESS:bU0Ü 
SYMBOL TABLE LENGTH:UU32 


03U0 












127 


Bevor dieses Prograimn nun gestartet wird, speichert 
man es sinnvollerweise auf einer Diskette, so daß 
es hinfort zur Verfügung steht und nicht bei jeder 
Benutzung zuerst assembliert werden muß. 

Allerdings muß dieses Programm als Binärdatei gespei¬ 
chert werden, weil es ja binär codiert vorliegt - 
gerade das macht ja den Vorteil der Benutzung von 
ASSEMBLER-Unterprogrammen (genauer von assemblierten 
Unterprogrammen) aus: Weil sie binär codiert vor¬ 
liegen, können sie beim Programmlauf später sehr viel 
rascher abgearbeitet werden als etwa ein normales 
BASIC-Programm. 

Die binäre Speicherung erfordert es, die Länge des 
Programms zu kalkulieren: 

Länge = Endadresse - Anfangsadresse + 1 


309 

10 


300 

(hexadez.) 


+ 1 


Wir erkennen, daß Anfangs- und Endadresse aus der 
assemblierten Liste entnommen werden. Es handelt sich 
dabei um die Satznummern der End- und der Anfangszeile 
des "echten" Objektcodes. Dieser beginnt ja, wie schon 
ausgeführt wurde, in der Zeile mit dem Etikett ERROR 
und endet mit der Anweisung RTS (alle anderen Zeilen 
beinhalten nicht ausführbare Anweisungen (;) bzw. Direk¬ 
tiven) . 
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Das Speichern des Objektprogramms erfordert also 
folgendes Kommando: 

BSAVE FEHLER.OB J,A800, LA 

Kenn. Länge (hex.) 

Name Startadr. (hex.) 

(Dieses Kommando muß beim LISA-ASSEMBLER mit den 
Tasten CTRL und D eingeleitet werden). 

Soll nun dieses Programm benutzt werden, so benötigen 
wir nur das Kommando: 

BLOAD FEHLER.OBJ,A300 Startadresse des Objekt¬ 

programms (hex.) gemäß 
ORG-Anweisung 

Wie ein derartiges ASSEMBLER-Programm benutzt, d.h. 
in BASIC-Programme "eingebaut" werden kann, darüber soll 
in den folgenden Abschnitten gesprochen werden. 

Ein tieferes Eindringen in die Geheimnisse der ASSEMB- 
LER-Programmierung soll hier nicht erfolgen. 

Es ist ja nicht Ziel dieses Buches, beispielsweise 
einen einführenden ASSEMBLER-Kurs bereitzustellen, als 
vielmehr zu zeigen, wie man die Möglichkeiten des APPLE- 
Rechnert nutzen kann. Unter diesem Gesichtspunkt kommt 
es jetzt mehr auf die folgenden Abschnitte an und die 
Beispiele, die oben vorgestellt wurden, sind vielleicht 
schon etwas zu ausführlich erörtert worden. 

Gleichwohl ist es sicherlich nicht ganz unwichtig, zu¬ 
mindest in groben Umrissen erfahren zu haben, wie ein 
ASSEMBLER-Programm aufgebaut werden kann und was unter 
"Assemblierung" überhaupt zu verstehen ist. 
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3.2.2 Verknüpfungen BASIC-ASSEMBLER 

Auch ohne einen eigenen Assembler zu erwerben, wie 
z.B. das im vorangegangenen Abschnitt erwähnte Pro¬ 
gramm LISA, können mit dem APPLE II einige Möglich¬ 
keiten der ASSEMBLER-Programmierung genutzt werden, 
und zwar mit Hilfe des sog. Monitors. 

Dieser Monitor ist ein zur Verfügung stehendes Hilfs¬ 
programm, das nützliche Dienste - insbesondere in 
Verbindung mit BASIC-Programmen - leisten kann. 

Die Verbindung, die bei Einbau eines ASSEMBLER-Pro- 
gramms zwischen diesem und dem aufrufenden BASIC-Pro- 
gramm hergestellt werden muß, besorgt dieser Monitor. 

Was der Monitor im einzelnen alles zu leisten vermag, 
soll hier kurz skizziert werden, nachdem zunächst er¬ 
läutert wird, wie dieses Dienstprogramm aufgerufen 
wird. 

Der Monitor wird mittels einer Anweisung aufgerufen, 
die wir bisher noch nicht besprochen haben, der CALL- 
Anweisung: 


nn CALL m 

Wenn diese Anweisung bei der Abarbeitung eines BASIC- 
Programms erreicht wird, so erfolgt eine Programmver¬ 
zweigung in ein Unterprogramm, welches im Gegensatz zu 
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einem BASIC-Unterprogramm im Maschinensprache ge¬ 
schrieben ist. Die Zahl m im CALL-Statement gibt da¬ 
bei die Startadresse des jeweiligen Maschinen-Unter- 
programms an. 

Derartige Unterprogramme befinden sich in Festwert¬ 
speichern (also nicht löschbar) im Anfangsadressenbe¬ 
reich zwischen 



D000 

und 

FFFF 

(hexadez.) 

also 

53248 

und 

65535 

(dezimal) 


Die erste Anweisung des eben erwähnten Monitorprogramms 
befindet sich bei der Adresse FF69 (= 65385 dezimal). 

Im CALL-Statement muß für die Zahl m die dezimale Schreib¬ 
weise benutzt werden, wobei anzumerken ist, daß allen 
Speicherplätzen, deren Adressen größer sind als 32767 
(dezimal), auch negative Adressen zugeordnet sind. 

Diese negative Adresse erhält man, indem man von der 
positiven Adresse die Gesamtzahl der Adressen (= 65536) 
subtrahiert. 

Da die Startadresse des Monitors also 65385 ist, kann 
sie auch mit 

65385 - 65536 = -151 


bezeichnet werden. 
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Zum Aufruf des Monitors benötigen wir also die fol¬ 
gende BASIC-Anweisung: 

CALL -151 

Das MarkierungsZeichen für Applesoft (D ) wird 
nach Ausführung dieser Anweisung ersetzt durch * , um 
dem Benutzer anzuzeigen, daß er jetzt auf der maschinen¬ 
sprachlichen Ebene operiert. 

Will man wieder auf die "BASIC-Ebene" zurück, so ist 
die Tastenkombination 

und 

und anschließend die Return-Taste zu betätigen. 

Es erscheint dann wieder das Applesoft-Zeichen 3 . 

Was kann nun mit dem Monitor , wenn er über CALL -151 
geladen wurde, angefangen werden? 

Zunächst kann dieses Dienstprogramm dazu benutzt wer¬ 
den, Speicherinhalte auszugeben. 

Geben wir ein: 

CALL -151 

und nach dem erschienenen Stern z.B. die Adresse 11FF, 
so antwortet der Monitor: 


CTRL 


11FF- 24 
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d.h. in der Speicherstelle 11FF (hex.) befindet sich 
der Wert 24 (hex,), also der Wert 36 (dez.). 

Wenn man nun einfach nur die die Return-Taste be¬ 
tätigt, gibt der Rechner die Inhalte weiterer Spei¬ 
cherplätze aus, die der Adresse 11 FF folgen. 

In jeder Zeile, die per Return-Tastenbetätigung ent¬ 
steht, stehen maximal acht Speicherinhalte, und zwar 
genau dann acht, wenn die Adresse durch 8 teilbar ist 

Gibt man beispielsweise ein 

00FF 

so antwortet der Rechner mit 

00FF- 10 

und nach Betätigung der Return-Taste erscheinen acht 
Werte 


0100- 31 35 31 00 30 30 30 30 weil 

0100 (hex.)= 256 (dez.) durch 8 teilbar ist. 

Will man noch mehr Speicherplätze gleichzeitig inspi¬ 
zieren, so kann man zwei Adressen gleichzeitig ein¬ 
geben, die durch Punkt zu trennen sind. 

Ausgegeben werden dann alle Speicherinhalte zwischen 
diesen beiden Adressen unter Einschluß der beiden. 
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Beispiel; 


F800.F83F 

Mit dem Monitor können aber nicht nur Speicherin¬ 
halte festgestellt, sondern Speicherinhalte auch ver¬ 
ändert werden. 

Geben wir beispielsweise ein: 

FF 

so antwortet der Monitor, wie oben beschrieben, mit 
00FF - 10 

Geben wir nun zusätzlich ein 

:09 

so wird jetzt in der Speicherstelle FF der Wert 9 ge¬ 
speichert, was wir überprüfen können, wenn wir erneut 
eingeben 


FF 

Der Monitor antwortet jetzt: 


00FF - 09 
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Der Monitor kann aber mehr als nur SpeicherInhalte 
inspizieren oder verändern (wobei natürlich pro 
Speicherstelle keine Zahl untergebracht werden kann, 
die größer als FF (hex.) = 255 (dez.) ist). 

Die zusätzlichen Möglichkeiten sollen aber nur kurz 
erwähnt werden: 

Von praktischer Bedeutung dürfte ab und zu die 
Möglichkeit sein, daß innerhalb des Arbeitsspeichers 
mit Hilfe des Monitors ganze Bereiche kopiert werden 
können. 

Geben wir z.B. nach Aufruf des Monitors die Anweisung 
1200 < 2000.2100M 

ein, so werden die Inhalte der Speicherplätze 2000 
bis 2100 in den Speicherbereich übertragen (kopiert), 
der mit der Adresse 1200 beginnt. 

Es versteht sich, daß auf diese Weise Datenaustausch ¬ 
prozesse , weil sie auf der maschinensprachlichen Ebene 
vollzogen werden, schneller ablaufen, als wenn dieser 
Austausch innerhalb eines BASIC-Programms mit LET-State- 
ments (z.B. innerhalb einer FOR...NEXT-Schleife) durch¬ 
geführt würde. 

Allerdings macht es die Nutzung solcher Beschleuni¬ 
gungsmöglichkeiten erforderlich, daß der Benutzer den 
Überblick über die Speichereinteilung besitzt und be¬ 
hält: Er muß wissen, wo was steht und wohin was trans¬ 

feriert werden soll. 





135 


Es leuchtet ein, daß auf diese Weise auch z.B. das 
Löschen von Speicherbereichen schneller vonstatten 
gehen kann, als wenn man per LET-Statements alle in¬ 
teressierenden Felder mit Nullen belegen wollte. 

Man braucht dazu nur diejenige Adresse A, die direkt 
vor dem zu löschenden Bereich liegt, mit 0 zu besetzen 
und gibt dann nach obigem Muster an, daß von A+1 
beginnend der Bereich A bis A+X kopiert werden soll. 

In die Stelle A+1 wird daraufhin die 0 aus der Stelle 
A kopiert, in die Stelle A+2 die 0, die inzwischen ja 
auch in A+1 steht...usw. 

Nach formal dem gleichen Muster funktioniert die Moni¬ 
tor-Anweisung zum Vergleichen von Speicherbereichs¬ 
inhalten. An der Stelle, an der in der obigen Anweisung 
der Buchstabe M steht, steht jetzt allerdings ein V. 

Stellt der Monitor bei derartigen Vergleichen eine 
Nichtübereinstimmung fest, so meldet er dies. 

Eine derartige Vergleichsprozedur kann sehr hilfreich 
sein, wenn es z.B. um die Prüfung geht, ob eine Datei, 
die auf Diskette übertragen wurde, korrekt übertragen 
wurde, oder ob Übertragungsfehler aufgetaucht sind. 

Eine derartige Prüfung nennt man Verifizierung. 

Eine solche Verifizierung könnte folgendermaßen vor 
sich gehen: 
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Nehmen wir an, eine Datei bestehe aus Daten, die 
100 (dez.) Bytes im Arbeitsspeicher belegen. 

Belegt seien damit die Speicherplätze 2000 bis 2064 
(hex.). Um diese Informationen auf Diskette zu spei¬ 
chern, müssen wir zurück in den BASIC-Modus, geben 
also 


CTRL - C und Return-Taste 
gemeinsam ein und danach das Kommando zum Speichern: 
BSAVE DATEN,A2000,L6 4 

(es muß der Befehl zum Speichern einer Binärdatei be¬ 
nutzt werden, also BSAVE und nicht etwa SAVE, und 
Adressen- und Feldlängenangaben sind hexadezimal anzu¬ 
geben) . 

Eine Überprüfung des Speicherungsprozesses kann nun 
so erfolgen, daß die gerade "weg-"gespeicherte Datei 
wieder eingelesen wird, und zwar in einen jetzt freien 
Speicherbereich (wir sehen hier wieder, daß der Be¬ 
nutzer einen Speicherüberblick haben muß bzw. notfalls 
Speicherbereiche inspizieren und ggf. auf Null setzen 
muß, wie oben beschrieben). 

Nehmen wir an, der Bereich ab Adresse 2100 (hex.) sei 
frei, so können wir eingeben: 

BLOAD DATEN,A2100 

Mit dem Monitor kann dann verglichen werden: 
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CALL -151 
2000 < 2100.2164V 

Gibt der Monitor keine Fehlermeldung aus, so ist 
die Verifizierung gelungen, andernfalls müßte er¬ 
neut gespeichert und verifiziert werden. 

Das Monitorprogramm erlaubt auch Verzweigungen . 

Dazu muß eine Adresse angegeben werden^ gefolgt von 
dem Buchstaben G. 

Beispiel: 

CALL -151 
3D0G 

Diese Anweisung bewirkt einen Sprung in die Maschinen- 
sprachanweisung mit der Adresse 3D0 (hex.). 

An dieser Adresse steht die Maschinenanweisung 

JMP 9DB9 

JMP steht für "Sprung" (Jump) und die Adresse 9DB9 
kennzeichnet das Maschinenprogramm, welches den Apple- 
soft-Compiler von einer Diskette einliest. 

Damit ist die Verwendung hergestellt zu den Ausführun¬ 
gen im Abschnitt zuvor, wo über ASSEMBLER-AnWeisungen 
gesprochen wurde - JMP ist nichts anderes als eine der¬ 
artige Anweisung. 
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Dies verdeutlicht, daß innerhalb des Monitors ein 
Assembler zur Verfügung steht, dem wir uns nun zu¬ 
wenden wollen. Es muß dabei darauf hingewiesen wer¬ 
den, daß dies nur eine sehr bescheidene ASSEMBLER- 
Version ist, die nur für einen beschränkten Kreis von 
Aufgaben eingesetzt werden kann. 

Die Startadresse dieses Assemblers ist F666 (hex.) 

= -2458 (dez.). Aufrufbar ist er also wie folgt: 

CALL -151 
F666G 

oder direkt (ohne den Monitor einzuschalten): 

CALL -2458 

Dieser Assembler steht allerdings nur zur Verfügung, 
wenn der APPLE II mit der Steckkarte INTEGER-BASIC 
ausgestattet ist, oder wenn es sich um einen Standard- 
APPLE II handelt. 

Ist der Assembler geladen, meldet er sich mit einem 
Ausrufungszeichen als Markierung (anstelle von > für 
INTEGER-BASIC bzw. * für den Monitor). 

Die Assembler-Anweisungen werden hinter dem 1 genau¬ 
so formuliert wie die Monitor-Anweisungen hinter dem ^ , 
allerdings ist zunächst das Dollarzeichen (^) einzu¬ 
geben. 


Beispielsweise kann eine Speicherstelle inspiziert 
werden, wenn hinter dem !-Zeichen eingegeben wird: 

$1CFF 

Der Assembler antwortet mit 

1CFF -6E 

Die Rückkehr von der Assembler-Ebene auf die Monitor¬ 
ebene erfolgt mit der Anweisung FF69G, der ein ^- 
Zeichen vorangestellt werden muß, also 

$FF69G 

Entsprechend gelangen wir mit 
$ CTRL und C 

auf die Applesoft-Ebene zurück. 

Die einzelnen ASSEMBLER-Anweisungen, die bei diesem 
Mini-Assembler möglich sind, sollen hier nicht be¬ 
sprochen werden, weil ja - wie schon erwähnt - dieser 
Assembler nicht bei allen APPLE-Versionen zur Ver¬ 
fügung steht. 

Wir verweisen dazu auf die zuständige Speziallitera¬ 
tur (siehe z.B. Lon Poole, Martin McNiff und Steven 
Cook; Apple II Anwenderhandbuch, München 1981, S. 

7-16 ff.) 


3.3 Unterprogramme in Maschinenspra.che 


Im Festwertspeicher des APPLE II befinden sich eine 
Reihe von Unterprogrammen in Maschinensprache, die 
man bei bestimmten Aufgabenstellungen sehr nutz¬ 
bringend einsetzen kann, wie im folgenden gezeigt 
werden soll. 

Diese Unterprogramme braucht der Benutzer also nicht 
selbst etwa in ASSEMBLER zu programmieren, sondern sie 
können mit der schon besprochenen CALL-Anweisung auf¬ 
gerufen werden. Sollte der Benutzer aber über ein 
Assembler-Programm, wie z.B. das oben erwähnte Pro¬ 
gramm LISA verfügen, kann er natürlich, wie im vor¬ 
angegangenen Abschnitt ausgeführt wurde, diese vorhan¬ 
denen Unterprogramme um eigene Entwicklungen ergänzen. 

Die wichtigsten dieser Unterprogramme beziehen sich 
auf die folgenden Aufgabenstellungen: 

1. Graphische Darstellungen in Normalgraphik; 

2. Tastatureingaben; 

3. Textausgaben; 

4. Ausgabe akustischer Signale; 

5. Cursor-Steuerung; 

6. Veränderungen auf dem Bildschirm. 

Zu einigen dieser Aufgabenstellungen sollen nun kurze 
Beispiele vorgestellt werden, um die Funktionsweise 
unterschiedlicher Unterprogramme zu illustrieren: 
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Beispiel 1; Erzeugen von Tönen 

Das folgende Programm erzeugt einige Piepstöne 
unter Benutzung eines Unterprogramms, das über 

CALL -1052 

aufgeiufen wird. 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT s PRINT : PRINT TAB< 9)"R.PRUST / Ui.UOSS 1984" 

50 PRINT : PRINT ; PRINT TAB( 5)"3.11 - UNTERPROGRAMM PIEPSEN" 

60 GOSUB 1000:'REM WARTEN 
70 FOR I = 1 TO 15 

80 PRINT I;". MAL : PIEPS" 

90 CALL - 1052 

100 FOR J = 1 TO 99: NEXT J 

1 10 NEXT I 

120 PRINT : PRINT : PRINT "ENDE DER AUSGABE": END 
1000 REM UP WARTEN 

1010 L>TAB 23: HTAB 6: INU5RSE : PRINT "BITTE EINE TASTE DRUECKEN 
!" : NORMAL 

1020 GET A-^: IF A^ = "" THEN 1020 
1030 HOME : RETURN 



142 


Programmbeschreibung 


Sätze 

Inhalt 

30- 60 

Überschrift und Warten 

70-110 

Es wird 15 mal gepiepst (mit 
Kontrollausdruck) 

100: Zwischen den Tönen jeweils 

kurze Warteschleifen 

120 

Ende des Programms 

1000-1030 

Unterprogramm Warten 

1010: Meldung 

1020: Abwarten, bis im Feld A0 

etwas empfangen wird (Tastendrr 

1030: Löschen des Bildschirms und 
Rücksprung 

Beispiel 2: 

Verschiebung des Cursors 


Das folgende Programm zeigt, wie der Cursor nach oben 
verschoben werden kann. Dazu benutzen wir ein Unter¬ 
programm, das über 

CALL -998 


aufgerufen wird. 
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30 PRINT TABC 9)"APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9>"R.PRUST / Ul.C'OSS 1984" 

50 PRINT : PRINT : PRINT TAB< 7) "3.12 - CURSOR-ÜBERSCHIEBUNG" 

60 GOSUB 1000; REM WARTEN 
70 FÜR I = 1 TO 5 
80 PRINT I;". AUSGABE" 

90 NEXT I 

100 PRINT ; PRINT ; PRINT "ES FOLGEN 5 LEERZEILEN" 

110 PRINT ; PRINT : PRINT ; PRINT : PRINT ; PRINT "DAS WAREN 

SIE" 

120 PRINT ; PRINT "NACH DEM CONT WIRD DER CURSOR 12 ZEILEN" 

130 PRINT "NACH OBEN VERSETZT, WO DANN **AHA** GE-" 

135 PRINT "DRUCKT WIRD"; PRINT ; PRINT "GIB CONT EIN"; STOP 

140 FÜR I = 1 TO 12 

150 CALL - 998 

160 NEXT I 
165 FLASH 

170 PRINT TAB< 15)"** AHA ** 

175 NORMAL 

180 LBTAB 23; PRINT "ENDE DER AUSGABE"; END 
1000 REM UP WARTEN 

1010 UTAB 23; HTAB 6; INL^ERSE ; PRINT "BITTE EINE TASTE DRUECKEN 
!"; NORMAL 

1020 GET A^; IF A-^ = "" THEN 1020 
1030 HOME ; RETURN 
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Prograimnbe Schreibung 


Sätze 

Inhalt 

30- 60 

Überschrift und Abwarten (UP 1000) 

70- 90 

Fünfmalige Angabe des Worts 
"AUSGABE" 

100 

Hinweis auf fünf folgende Leerzeilen 

1 10 

Fünf Leerzeilen 

120-135 

Erläuternde Hinweise und Unterbre¬ 
chung des Programmablaufs 

140-160 

Verschiebung des Cursors um 12 Zei¬ 
len nach oben 

165-175 

Ausgabe des Worts "AHA" in blin¬ 
kender Schrift 

(Einzelheiten zu FLASH und NORMAL 
werden in Kap. 4 besprochen) 

180 

Beendigung des Programms nach ent¬ 
sprechender Meldung in Zeile 23. 

1000-1030 

Unterprogramm Warten 

1010: Meldung in Zeile 23 ab Spalte 

6 in inverser Schrift und 
Rückkehr zur normalen Schreib¬ 
weise 

1020: Abwarten einer Tasteneingabe 

1030: Rücksprung 
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Beispiel 3; Fehlermeldung 

Das folgende Programm demonstriert die Benutzung 
eines Maschinenprogramms, das über 


CALL -211 


aufgerufen wird, zur Fehlermeldung durch optische 
und akustische Anzeige: 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB( 9)“R.PRUST / W.VOSS 1984" 

50 PRINT : PRINT : PRINT TAB( 10)”3.13 - FEHLERMELDUNG" 

60 GOSUB lOOQ: REM WARTEN 
70 HOME 

80 PRINT "ES FOLGT NUN EINE FEHLERMELDUNG : PRINT : PRINT 

: PRINT rKiiNi 

90 CALL - 211 

95 PRINT : PRINT : PRINT : PRINT : PRINT 
100 PRINT : PRINT : PRINT "ENDE": END 
1000 REM UP WARTEN 

UfAB 6: INl^ERSE : PRINT "BITTE EINE TASTE DRUECKEN 
! : NORMAL , 

1020 6ET A^: IF A^ = "THEN 1020 
1030 HOME ; RETURN 


Programmbeschreibung 


Sätze 

Inhalt 

30- 60 

Überschrift und Abwarten (UP 1000) 

70- 80 

Löschen des Bildschirms und Ausgabe 
eines erläuternden Hinweises. 

90 

Aufruf des Unterprogramms, welches 
das Wort ERR (=error =Fehler) und 
einen Piepston ausgibt 

95-100 

Beendigung des Programms 

1000-1030 

Unterprogramm Warten (Details 
siehe Beispiel 2) 
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3.4_Anwendungsbeispiele 

Es wurde schon in vielen Programmbeispielen ein 
Unterprogramm benutzt, welches dazu diente, den 
Programmablauf zu unterbrechen, so daß der Rechner 
so lange mit weiteren Aktivitäten (z.B. Bildschirm¬ 
ausgaben) wartete, bis der Benutzer irgendeine Ta¬ 
ste betätigte. 

Dieses Unterprogramm sieht folgendermaßen aus: 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / W.C'OSS 1984" 

50 PRINT : PRINT : PRINT TAB< 8) "3.14 - WARTEN/'v'ERST ON 1" 

60 PRINT : PRINT ; PRINT : PRINT : PRINT "DIESES PROGRAMM WARTET 
EINE TASTEN- 

70 PRINT "EINGABE DURCH SPRUNG INS UNTERPROGRAMM" 

80 PRINT "1000 AB ; " 

90 GOSUB 1000: REM WARTEN 

100 PRINT "ICH HABE GEWARTET": PRINT : PRINT 
110 PRINT "NACHDEM DIE TASTENEINGABE ERFOLGT IST" 

120 PRINT "WIRD DAS PROGRAMM NUN BEENDET": END 

1000 REM UP WARTEN 

1010 L»TAB 23: HTAB 6: INL'ERSE 

1020 PRINT "BITTE EINE TASTE DRUECKEN !" 

1030 NORMAL 

1040 GET A^: IF A^ = "" THEN 1040 
1050 HOME : RETURN 
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In diesem Unterprogramm geschieht nach dem nicht¬ 
ausführbaren REM-Statement (1000) folgendes: 

1. In Satz 1010 wird ein inverser Ausdruck 
(INVERSE bewirkt Ausgabe "schwarz auf weiß" 
auf dem Bildschirm) in Zeile 23 (VTAB 23) 
ab Spalte 6 (HTAB 6) vorbereitet. 

2. In Satz 1020 erfolgt diese so vorbereitete 
Ausgabe. 

3. In Satz 1030 wird auf die Normalschreibweise 
zurückgeschaltet ("weiß auf schwarz", auf 
dem Bildschirm per Anweisung NORMAL). 

4. . In Satz 1040 wird eine Tastatureingabe erwar¬ 

tet. Solange diese nicht erfolgt,d.h. solange 
A0="" (im Feld A0 ist (noch) nichts), solange 
wird durch Sprung nach 1040 weitergewartet. 

5. Ist hingegen eine Tasteneingabe erfolgt, geht 
es weiter bei Satz 1050, d.h. der Bildschirm 
wird gelöscht (HOME) und es erfolgt der Rück¬ 
sprung ins Hauptprogramm (RETURN). 

In einigen der vorangegangenen Beispiele haben wir die¬ 
se insgesamt 10 Statements in noch weniger als sechs 

Sätzen zusammengepackt. 
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Ein derartiges Warteprogramm - und deshalb wurde 
es hier erwähnt - kann nun auch sehr elegant mit 
Hilfe von Maschinen-Unterprogrammen erstellt wer¬ 
den. Dadurch läuft es schneller ab und man ver¬ 
meidet zudem das GET-Statement, welches bei Ver¬ 
wendung im Zusammenhang mit hochauflösender Graphik 
(vergl. Kap. 4) manchmal sehr störende Fehler bei 
der Graphikausgabe verursacht. 

Alternative Programmierung des "Warteprogramms": 


30 PRINT TAB< 9) *'APPLE-TI PS UND TRICKS" 

40 PRINT ; PRINT : PRINT TAB< 9)"R.PRUST / W.’v'OSS 1984" 

50 PRINT : PRINT : PRINT TAB( 8) "3.15 - UjARTEN/C>ERSI ON 2" 

60 PRINT : PRINt : PRINT : PRINT : PRINT "DIESES PROGRAMM WARTET 
EINE TASTEN- 

70 PRINT "EINGABE DURCH SPRUNG INS UNTERPROGRAMM" 

80 PRINT "1000 AB : " 

90 GOSUB 1000: REM WARTEN 

100 PRINT "ICH HABE GEWARTET": PRINT : PRINT 
110 PRINT "NACHDEM DIE TASTENEINGABE ERFOLGT IST" 

120 PRINT "WIRD DAS PROGRAMM NUN BEENDET": END 
1000 REM UP WARTEN ’ 

1010 UTAB 23 
1020 CALL - 868 
1030 INVERSE : HTAB 6 

1040 PRINT "BITTE EINE TASTE DRUECKEN !" 

1050 NORMAL 
1060 POKE - 16368,0 
1070 WAIT - 16384,128 
1080 POKE - 16368,0 
1090 L^TAB 23 
1100 CALL - 868 
1110 RETURN 
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Auch dieses Programm kann natürlich enger geschrie¬ 
ben werden; im Prinzip kann man es zwei Sätze ver- 


kürzen: 


Satz 

1000 : Statement 1000 

Satz 

1010 : Statements 1010-1110. 


Wir haben es deshalb so "ausführlich" oben programmiert, 
um für die folgende Programmbeschreibung schon eine 
praktische Numerierung zur Hand zu haben. 

Programmbeschreibung 


Sätze 

Inhalt 

1000 

Kommentar (als REM-Statement nicht 
ausführen) 

1010 

Auswahl von Bildschirmzeile 23 

1020 

Löschen dieser Zeile per Maschinen¬ 
programm 

1030 

Umschalten auf inversen Schreibmodus 
und Beginn bei Bildschirmspalte 6 

1040 

Textausgabe 

1050 

Zurückschalten auf Normalschreibweise 

1060 

Löschen der Speicherstelle -16368 

1070 

Abwarten einer Tastatureingabe (ASCII- 
Codezahl 128 oder größer) 
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Sätze 

Inhalt 

1080 

Erneutes Löschen der Speicher¬ 
stelle -16368, nachdem die Tasta¬ 
tureingabe erfolgt ist, damit mit 
dieser Inputinformation nichts an¬ 
gefangen werden kann. 

1090-1100 

Löschen der Bildschirmzeile 23 

1 110 

Rücksprung 


In einem weiteren Beispiel wollen wir die Möglichkeit 
der Cursorverschiebung nutzen, die im vorangegange¬ 
nen Abschnitt vorgestellt wurde. 

In vielen Programmen wird der Benutzer beispiels¬ 
weise dazu aufgefordert, mit J (für "Ja") oder N (für 
"Nein") auf eine durch den Rechner gestellte Frage 
zu antworten. Es wäre nun ganz sinnvoll, prinzipiell 
zu prüfen, ob der Benutzer irrtümlicherweise ein an¬ 
deres Symbol als J oder N eingegeben hat. Ist dies 
der Fall, sollte ein Piepston akustisch warnen und 
der Cursor müßte an der Stelle stehen bleiben, an 
der die korrekte Eingabe (eben nur J oder N) erwartet 
wird. 

Weiterhin wäre es sinnvoll, wenn nach korrekter Ein¬ 
gabe (also J-Taste oder N-Taste) das Programm ohne 
Aufenthalt Weiterarbeiten würde. 
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Hat man eine solche Prüfung im Programm nicht, 
so könnte es folgendermaßen aussehen: 


100 HOME 

110 PRINT "SOLL ICH WEITERARBEITEN <JA ODER NEIN)?" 

115 PRINT : PRINT : PRINT 

120 INPUT "GIB J ODER N EIN : ";A^ 

130 IF = "N" THEN 110 

140 PRINT : PRINT : PRINT "ES GEHT WEITER" 

150 REM WEITERE DATENL'ERARBEITUNG 
160 PRINT : PRINT ; PRINT "ENDE"; END 


Dieses Programm reagiert auf die Eingabe von J kor¬ 
rekt. Wird hingegen eine falsche Taste betätigt, sc 
wird diese Eingabe behandelt wie eine Ja-Antwort - 
und dies ist kein erfreulicher Zustand. 


Besser funktioniert das folgende Programm; 


TAB< 9)"APPLE-TIPS UND TRICKS" 


PRINT 

PRINT 


PRINT, TAB< 9)' 
PRINT TAB( 3)' 


PRUST / W.UOSS 1984" 

16 - KORREKTUR FALSCHER 


REM WARTEN 


30 PRINT 
40 PRINT 
50 PRINT 
EINGABEN" 

60 GOSUB 1000; 

HOME 

PRINT "SOLL DAS PROGRAMM WEITERARBEITEN ?" 

PRINT 

ODER N EINGEBEN ";; GET A^; PRINT ; IF A^ 
"N" THEN CALL - 1052; CALL - 998; GOTO 


70 
80 
90 
100 
< > 
100 
120 
130 


PRINT ; PRINT ; 
PRINT "BITTE J 
"J" AND A^ < 


> 


IF A^ = "N" THEN PRINT ; PRINT ; PRINT ; GOTO 80 
PRINT ; PRINT ; PRINT ; PRINT "DAS PROGRAMM KANN JETZT 
WEITERGEHEN" 

140 REM WEITERE DATENL»ERARBEITUNG 

150 PRINT ; PRINT ; PRINT ; PRINT "ENDE"; END 

1000 REM UP WARTEN 

1010 L»TAB 23; HTAB 6; INUERSE ; PRINT "BITTE EINE TASTE DRUECKEN 
!"; NORMAL 

1020 GET A^; IF A^ = 

1030 HOME ; RETURN 


THEN 1020 
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Die Programmbeschreibung zeigt, worum es geht: 


Sätze 

Inhalt 

30- 50 

Überschrift 

60 

Abwarten durch Sprung ins Unter¬ 
programm 1000 

70 

Löschen des Bildschirms 

80 

Frage, ob das Programm Weiter¬ 
arbeiten soll (=Testfrage für die¬ 
ses Programm) 

90 

Leerzeilen 

100 

Hinweis, daß J oder N eingegeben 
werden soll; 

Aufnahme der Eingabe durch die GET- 
Anweisung; 

Leerzeile; 

Wenn im Feld weder "J" noch "N" steht 
(fehlerhafte Eingabe!), dann wird ein 
Piepston als akustische Warnung er¬ 
zeugt (CALL -1052); 

danach wird der Cursor eine Zeile zu¬ 
rückgesetzt und der Hinweis wieder¬ 
holt (Rücksprung an den Satzanfang 

100) 

120 

Ist "N" eingegeben worden, wird die 
Frage aus Satz 80 wiederholt (Rück¬ 
sprung nach 80); 

genauso gut könnten natürlich jetzt 
irgendwelche alternativen Berechnungen 
oder Verarbeitungsprozesse durchge¬ 
führt werden. 

130-140 

Weiterarbeiten im Programm; 

bzw. Durchführung anderer Datenverar¬ 
beitungsprozesse 

150 

Beendigung des Testprogramms 
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Sätze_Inhalt 

1000-1030 Unterprogramm Warten 

(an anderer Stelle schon erläutert) 


In einem letzten Beispiel zeigen wir, wie vorge¬ 
gangen werden kann, um fehlerhafte (beispielsweise 
numerische) Angaben in geschickter Weise zu korri¬ 
gieren: 


30 PRINT TAB< 9)“APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / W.^OSS 1984" 

50 PRINT : PRINT : PRINT TAB< 5)"3.18-KORREKTUR FALSCHER DATEN" 

60 GOSUB 1000: REM WARTEN 
70 HOME 

80 PRINT "BITTE GEBEN SIE IN DER FOLGENDEN ZEILE" 

90 INPUT "EINE DEZIMALZAHL EIN ; ";X 

100 PRINT ; PRINT : PRINT 

110 GOSUB 3000: REM KORREKTUR 

120 PRINT : PRINT : PRINT "DAS PROGRAMM KANN JETZT WEITERARBEITEN" 

130 REM WEITERE DATENVERARBEITUNG 

140 PRINT : PRINT : PRINT,"ENDE": END 

150 PRINT : PRINT ; PRINT : PRINT "ENDE": END 

1000 REM UP WARTEN 

1010 VTAB 23: HTAB 6: INVERSE : PRINT "BITTE EINE TASTE DRUECKEN 
!": NORMAL 

1020 GET A^: IF A^ = "" THEN 1020 

1030 HOME : RETURN 

3000 REM UP KORREKTUR 

3010 GOSUB 6000: REM PRUEFEN 

3020 IF A^ = "J" THEN RETURN 

3030 PRINT : PRINT "FALSCHE ANGABE : ";X 

3040 PRINT : PRINT : INPUT "KORREKTUR : ";X 

3050 GOTO 3010 

6000 REM UP PRUEFEN 

6010 PRINT "IST DIE EINGABE KORREKT ?<J/N)";: GET A^: PRINT 
: IF A^ < > "J" AND A^ < > "N" THEN CALL - 1052: CALL - 
998: GOTO 6010 

6020 CALL - 998: CALL - 868: RETURN 
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Auch hier erläutert die Programmbeschreibung, was 
im einzelnen geschieht: 


Sätze 

Inhalt 

30- 50 

Überschrift 

60 

Abwarten durch Sprung ins Unter¬ 
programm 1000 

70 

Löschen des Bildschirms 

80- 90 

Anforderung einer Dezimalzahl zu 
Testzwecken 

100 

Leerzeilen 

1 10 

Sprung ins Unterprogramm 3000, um 
die eingegebene Zahl (80-90) zu 
prüfen und gegebenenfalls zu korri¬ 
gieren 

120-130 

Nach erfolgtem Rücksprung kann das 
Programm mit weiteren Datenverar¬ 
beitungsprozessen fortgeführt werden 

140 

Beendigung des Programms 

1000-1030 

Unterprogramm Warten 

(an anderer Stelle schon erläutert) 
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Sätze 

Inhalt 

3000-3050 

Unterprogramm zur Korrektur fehler¬ 
haft eingegebener Werte: 


3010: 

Sprung ins Unterprogramm 6000 
zur Überprüfung; 


3020: 

Wird mit der Eingabe "J" (für 

Ja) im Unterprogramm 6000 die 
Korrektheit der Testzahl bestä¬ 
tigt, erfolgt der Rücksprung 
ins Hauptprogramm; 


3030: 

Ist die Testzahl hingegen falsch, 
wird sie ausgegeben 


3040: 

Danach wird die korrigierte Zahl 
angefordert 


3050: 

Rücksprung nach 3010, um auch 
diese Neueingabe (3040) zu über¬ 
prüfen. ..usw. 

6000-6020 

Unterprogramm zur Prüfung eingegebe¬ 
ner Werte: 


6010: 

Abfrage, ob der eingegebene 

Wert korrekt ist; 



Überprüfung der Eingaben "J" 

(für Ja), bzw. "N" (für Nein) 
(vergl. vorangegangenes Beispiel) 


6020: 

Herstellung der Ausgangslage und 
Rückkehr (mit korrektem "J" oder 
"N^) ins Unterprogramm 3000 
(Satz 3020) 


Diese Beispiele mögen genügen, um ansatzweise zu zeigen, 
wie insbesondere bei einer dialogorientierten Program¬ 
mierung durch Verwendung geeigneter Maschinenprogramme 
die Programme wesentlich verbessert und komfortabler 
gemacht werden können. 
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Kapitel 4; Graphikprograinme 


4.1 Vorbemerkungen 


Die Erstellung von Graphiken mit dem Computer ist 
eine der reizvollsten Aufgaben überhaupt - und 
eine wichtige Aufgabe dazu: Man denke beispielsweise 
an die zunehmende Bedeutung des sog. Computer- 
Konstruierens, bei dem der Rechner schon weitgehend 
die früher üblichen, überdimensional großen Zeichen¬ 
bretter ersetzt hat. 

In der Art und Weise, wie die verschiedenen Rechner 
Graphikanforderungen der Benutzer und ihren Wünschen 
gerecht werden können, unterscheiden sie sich vonein¬ 
ander: Es gibt graphikfähige und "unfähige" Computer; 
es gibt Rechner, die erst mit Hilfe mehr oder weniger 
umfangreicher (und kostspieliger) Software graphik¬ 
fähig werden, aber auch solche, die "von Hause aus" 
graphikfähig sind. 

Der APPLE-Rechner, um den es hier geht, gehört zur 
letzten Kategorie. 

Von vornherein muß berücksichtigt werden, daß der 
Apple, wie einige andere Rechner auch, zwei Arten der 
graphischen Darstellung unterscheidet: 

1. Die sog. Normalgraphik 

2. Die hochauflösende Graphik 
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Im ersten Fall muß man sich den Bildschirm aufge¬ 
teilt denken in 40 Spalten und 48 Zeilen und jeder 
einzelne der so entstehenden "Kreuzungsbereiche" ist 
einzeln ansprechbar. 

Von den 48 Zeilen stehen im Graphik-Modus per Vor¬ 
einstellung (von der abgewichen werden kann) nur 44 
Zeilen zur Verfügung (0 bis 43), während der restliche 
Platz für zwei Textzeilen am unteren Bildschirmrand 
reserviert ist. 

Jeder dieser Kreuzungsbereiche ist aber vergleichs¬ 
weise groß (auf einem 30-cm-Bildschirm ca. 3 5 mm), 

so daß Graphiken, die auf dieser Grundlage aufgebaut 
werden, relativ "grob" sind. 

Dies ist anders bei der hochauflösenden Graphik: 

Hier hat man sich den Bildschirm aufgeteilt zu denken 
in 192 Zeilen und 280 Spalten, so daß jetzt insgesamt 
5376o "Kreuzungspunkte" entstehen, von denen jeder 
einzelne ansprechbar ist. Dies ermöglicht sehr viel 
"feinere" graphische Darstellungen - eben "höher auf- 
lösende" Graphiken. 


158 


4,2 Normalgraphik 

Die Normalgraphik ist die nicht so sehr interessante 
Form der Möglichkeit, graphische Darstellungen über 
BASIC-Programm zu erzeugen. 

Gleichwohl ist sie für spezielle Fragestellungen, wie 
sich in späteren Beispielen zeigen wird, sehr gut 
geeignet. 


4.2.1 Textmodus und Graphikmodus 

Normalerweise befindet sich der Bildschirm im 
Textmodus , d.h. wenn wir ein Programm eintippen, dann 
erscheinen die Programmzeilen, d.h. die gesamte Pro^ 
grammliste, als lesbarer Text auf dem Bildschirm (glück¬ 
licherweise) . Weiterhin tauchen auch Ergebnisse, die 
über das PRINT-Statement ausgegeben werden, als direkt 
lesbare Sachverhalte auf dem Bildschirm auf. 

Sollen nun beispielsweise Graphiken ausgegeben werden, 
so muß zunächst in den Graphikmodus "umgeschaltet" 
werden. 

Diese Umschaltung erlaubt die Anweisung 


GR 


(GR = "Graphic") 
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Diese Anweisung kann sowohl als Kommando, wie auch 
als Statement innerhalb eines BASIC-Programms (dann 
natürlich versehen mit einer Satznummer) benutzt 
werden. 

Wird bei der Programmabarbeitung dieses Statement 
erreicht, so wird auf den Graphikmodus umgeschaltet, 
d.h. vorher auf dem Bildschirm vorhandene Texte (z.B. 
die noch zu sehende Programmliste) verschwinden jetzt. 
Allerdings werden die untersten beiden Bildschirmzei¬ 
len für Texte nach wie vor freigehalten. 

Wenn im weiteren Programm nun geeignete Graphik-An¬ 
weisungen folgen, wird auf dem Bildschirm das ent¬ 
sprechende Bild erscheinen. 

Häufig ist es angebracht, im Anschluß an die Graphik¬ 
ausgabe wieder in den Textmodus zurückzukehren - ent¬ 
weder weil z.B. weitere, nun textliche Ausgaben folgen 
oder weil z.B. das bisherige Programm verändert oder 
wegen irgendwelcher Fehler korrigiert oder einfach nur 
weitergeführt und verlängert werden soll. 

Diese Rückkehr in den Textmodus geschieht mit der 
Anweisung 

TEXT 


Auch diese Anweisung kann natürlich als BASIC-Anwei¬ 
sung verwendet werden. 
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Wird sie in der Programmabarbeitung erreicht, ver¬ 
schwindet die Graphik. Es ist deshalb sinnvoll, vor 
dieser Anweisung, die Anweisung STOP oder GET einzu¬ 
geben, um dem Programmbenutzer die Möglichkeit zu ge¬ 
ben,* sich in Ruhe die Graphik anzuschauen. 

Zweckmäßigerweise verbindet man dies mit einer Mit¬ 
teilung etwa von der Form 

BITTE CONT EINGEBEN (bei STOP), oder; 

BITTE EINE TASTE DRUECKEN (bei GET), 

damit auch derjenige, der wenig oder keine Erfahrung 
mit BASIC-Programmen hat, weiß, was zu tun ist. 

Dieser Text kann in eine der beiden unteren Bildschirm¬ 
zeilen gedruckt werden, ohne daß vorher die Anweisung 
TEXT erreicht werden muß, denn diese Zeilen stehen ja 
auf jeden Fall für Textausgaben zur Verfügung. 

Zum Ausdruck z.b. in der 23. Zeile benötigen wir beim 
APPLE die Anweisung 


VTAB 23 


(VTAB = Vertikaler Tabulator) 



161 


4.2.2 Farben und graphische Effekte 


Es gibt eine Reihe von Möglichkeiten, schon unabhän¬ 
gig vom Graphikmodus graphische Effekte zu produzie¬ 
ren. 

Dies gelingt mit den beiden Statements 


INVERSE 


und 

FLASH 


Die Anweisung INVERSE "schaltet um" von der Textaus¬ 
gabe "weiß auf schwarz" auf die Textausgabe "schwarz 
auf weiß". 

Mit der Anweisung FLASH wird erreicht, daß die Druck¬ 
ausgabe zwischen beiden Möglichkeiten ständig hin- 
und her wechselt. 

Aus diesen "Sonderdruck"-Ausgaben kann man sich wie¬ 
der verabschieden durch die Anweisung 


NORMAL 


Man erprobe zum Beispiel das folgende Programm: 






30 

40 

50 

60 

70 

80 

90 
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PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

PRINT : PRINT ; PRINT TAB< 9)"R.PRUST / Ui.UOSS 1984" 
PRINT : PRINT TAB( 10)"4.1 - SONDEREFFEKTE" 

PRINT : PRINT : PRINT : PRINT : PRINT 
INL»ERSE : PRINT "APPLE": NORMAL : PRINT : PRINT 
FLASH : PRINT "BLITZ"; NORMAL 
PRINT : PRINT : PRINT "ENDE"; END 


Der APPLE leistet aber noch mehr; 

Wenn er mit einem Farb-Interface ausgestattet und 
ein Farbfernseher oder Farbmonitor angeschlossen 
ist, dann können auch farbige Ausgaben produziert 
werden. 


Dazu benötigen wir die Anweisung 


COLOR = Zahl 

---j- 

An der Stelle "Zahl" steht dabei ein Wert zwischen 
0 und 15 ^ der die jeweilige Farbe der folgenden 
Ausgaben bestimmt. 

Farbtabelle 


Farbe 

Zahl 

Farbe 

Zahl 

schwarz 

0 

braun 

8 

magenta 

1 

orange 

9 

dunkelblau 

2 

grau 2 

Io 

purpur 

3 

rosa 

11 

dunkelgrün 

4 

hellgrün 

12 

grau 1 

5 

gelb 

13 

mittelblau 

6 

aquamarinblau 

14 

hellblau 

7 

weiß 

15 
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4.2.3 Graphik-Anweisungen 

Die Anweisungen, die im einfachen Graphikmodus durch¬ 
geführt werden, sollen nun - bevor wir sie an geeig¬ 
neten Beispielen illustrieren - kurz vorgestellt werden: 

Das erste hier infrage kommende Statement lautet 


PLOT S,Z 


Es dient dazu, am Kreuzungspunkt der Spalte S mit der 
Zeile Z einen "Punkt" (in Form eines kleinen Rechtecks), 
zu zeichnen. 

Wir erinnern daran, daß 40 Spalten zur Verfügung stehen 
(sie werden von 0 bis 39 bezeichnet) und für die Graphik 
44 Zeilen (0 bis 43). Deshalb darf an der Stelle S keine 
negative und keine Zahl größer als 39, an der Stelle Z 
keine negative und keine Zahl größer als 43 stehen. 

Wird diese Regel nicht eingehalten, erscheint folgende 
Fehlermeldungi 

ILLEGAL QUANTITY ERROR IN nn 

Allerdings können an den Stellen S und Z reelle Werte 
(z.B. irgendwelche Rechenergebnisse oder Variablenaus¬ 
prägungen) stehen. Solange sie die obigen Grenzen ein- 
halten, werden sie vom Rechner ganzzahlig gemacht. 
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Mit diesem Statement können auch Striche auf dem 
Bildschirm gezeichnet werden. Dazu brauchen wir das 
PLOT-Statement nur in Schleifen einzubauen, wie das 
folgende Beispiel zeigt: 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / \a) .^OSS 1984" 

50 PRINT : PRINT TAB< 7)"4.2 - SENKRECHTER STRICH" 

60 GOSUB 1000: REM WARTEN 
70 HOME 

80 GR ; COLOR= 12; REM GRUEN 
90 FOR I = 5 TO 20 
100 PLOT 10,1 
110 NEXT I 

120 GOSUB 1000: REM WARTEN 

130 TEXT ; HOME :'PRINT “ENDE": END 

1000 REM UP WARTEN 

1010 UTAB 23; HTAB 6; INL^ERSE ; PRINT "BITTE EINE TASTE DRUECKEN 

I » 

1020 NORMAL 

1030 GET A$; IF A$ = "“ THEN 1030 
1040 RETURN 


VLIN / Z 2 ^ 

Diese Anweisung erzeugt in der Spalte S des Bildschirms 
einen senkrechten Strich, der in Zeile beginnt und 
in Zeile Z 2 endet. 

Entsprechend zeichnet 


HLIN S^, S 2 AT Z 

einen horizontalen Strich in Zeile Z, beginnend in Spalte 
S^ und endend in Spalte S 2 . 
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Bei den Werten S, , S^r Z, und Z 2 sind die 
Grenzen einzuhalten, über die oben schon gesprochen 
wurde. 


4.2.4 Beispiel 1; Bildschirmrand 


Für viele Anwendungsprogramme empfiehlt es sich, eine 
Bildschirmumrandung zu zeichnen. Dafür taugt das fol¬ 
gende Programm: 


30 PRINT TAB< 9)”APPLE-TIPS UND TRICKS“ 

40 PRINT : PRINT : PRINT TAB< 9>“R.PRUST / W.t'OSS 1984“ 

50 PRINT : PRINT TAB< 14)"4.3 - RAND" 

60 GOSUB 1000: REM WARTEN 
70 HOME 

80 INPUT “LINKE SPALTE : “;S1 

90 IF S1 <0 OR S1 > 39 THEN PRINT : PRINT “FALSCHE EINGABE": 

PRINT : GOTO 80 

100 PRINT : INPUT “RECHTE SPALTE : “;S2 

110 IF S2 < 0 OR S2 > 39 THEN PRINT : PRINT “FALSCHE EINGABE": 
PRINT : GOTO 100 ’ 

120 PRINT : INPUT “OBERE ZEILE : ";Z1 

130 IF ZI <0 OR ZI > 43 THEN PRINT : PRINT “FALSCHE EINGABE": 
PRINT : GOTO 120 

140 PRINT : INPUT “UNTERE ZEILE : “;Z2 

150 IF 22 < 0 OR 22 > 43 THEN PRINT : PRINT “FALSCHE EINGABE“: 

PRINT : GOTO 140 

160 GR : COLOR= 12: REM GRUEN 

170 HLIN S1,S2 AT ZI 

180 HLIN S1,S2 AT Z2 

190 ULIN 21,Z2 AT S1 

200 ULIN ZI,22 AT S2 

210 GOSUB 1000: REM WARTEN 

220 TEXT : HOME : PRINT "ENDE“: END 

1000 REM UP WARTEN 

1010 UTAB 23: HTAB 6: INUERSE : PRINT “BITTE EINE TASTE DRUECKEN 
! “ 

1020 NORMAL 

1030 GET A^; IF A^ = ““ THEN 1030 
1040 RETURN 
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4.2.5 Beispiel 2; Gitter 

Übungshalber soll ein kleines Programm angefügt werden - 
diesmal ohne Fehlerabfangmechanismen - welches auf 
dem Bildschirm ein Balkengitter erzeugt. Dem Benutzer 
bleibt überlassen, die Abstände zwischen den waagrech¬ 
ten und den senkrechten Balken selbst festzulegen. 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS“ 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / W.fOSS 1984“ 

50 PRINT : PRINT TAB( 13)“4.4 - GITTER“ 

60 GOSUB 1000: REM WARTEN 
70 HOME 

SO INPUT “WAAGRECHTER ABSTAND : “;W 

90 PRINT : INPUT “SENKRECHTER ABSTAND : “;S 

100 GR : COLOR= 12: REM GRUEN 

110 FÜR I = 0 TO 39 STEP S 

120 ULIN 0,39 AT I: NEXT I 

130 FOR I = 0 TO 39 STEP W 

140 HLIN 0,39 AT I: NEXT I 

150 GOSUB ioOO: REM WARTEN 

160 TEXT : HOME : PRINT “ENDE“: END 

1000 REM UP WARTEN 

1010 UTAB 23: HTAB 6: INUERSE : PRINT “BITTE EINE TASTE DRUECKEN 

I '• 

1020 NORMAL 

1030 GET A^: IF A^ = ”“ THEN 1030 
1040 RETURN 


Auch hier erübrigen sich nähere Erläuterungen 
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4.2.6 Beispiel 3: Farbdemonstration 


Im folgenden Programm sollen in sehr einfacher Form 
die Farbmöglichkeiten demonstriert werden. 

Natürlich ist der Einsatz dieses Programms nur sinn¬ 
voll, wenn die PAL-Farbkarte des APPLE (Farb-Inter- 
face) und ein Farbfernseher oder -monitor zur Ver¬ 
fügung stehen. 

30 PRINT TAB( 9)"APPLE-TIPS UND TRICKS" 

40 PRINT ; PRINT : PRINT TAB< 9>"R.PRUST / W.k^OSS 1984" 

50 PRINT : PRINT TAB< 13)"4.5 - FARBEN" 

60 GOSUB 1000: REM WARTEN 
70 6R 

80 FÜR F = 0 TO 15 
90 C0L0R= F 
100 HLIN 5,35 AT 2 * F 
120 NEXT F 

130 GOSUB 1000; REM WARTEN 

140 TEXT ; HOME ; PRINT "ENDE": END 

1000 REM UP WARTEN 

1010 k^TAB 23: HTAB 6: INCERSE : PRINT "BITTE EINE TASTE DRUECKEN 
• " 

1020 NORMAL 

1030 GET A^: IF A^ = "" THEN 1030 
1040 RETURN ^ 


Wenn keine Farbgraphik zur Verfügung steht, werden an¬ 
stelle farbiger Balken Balken mit unterschiedlicher 
"Schraffur" erzeugt. 
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4,2.7 Beispiel 4; Histogramm 

Ein Histogramm ist das graphische Abbild einer 
statistischen Häufigkeitsverteilung. 

Das entsprechende Graphikprogramm ist also - im Gegen¬ 
satz zu den bisher vorgestellten Beispielen - das erste 
direkt anwendungsbezogene bzw. problemlösende Pro¬ 
gramm. 

Dazu benutzen wir das folgende Beispiel: 


Altersverteilung in der Bundesrepublik Deutschland 
198o: 


Altersklasse 


Anzahl 
(in looo) 

in % 

unter Io 


6317.0 

Io.3 

Io bis unter 

2o 

10087.7 

16.4 

2o " 

3o 

8964.2 

14.6 

3o " 

4o 

8263.1 

13.4 

4o " " 

5o 

8714.0 

14.2 

5o " 

6o 

7332.7 

11.9 

6o " 

7o 

5489.7 

8.9 

7o " 

8o 

48oo.3 

7.8 

8o " 

9o 

1469.2 

2.4 

9o und mehr 


128.5 

0,2 

Summe 


61566.3 

^ ^ * 
loo. 1 


Quelle: Stat. Jahrbuch der Bundesrepublik 

Deutschland, 1982, S. 59 

iff. 

Rundungsungenauigkeiten. 
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Die in der letzten Spalte der vorstehenden Tabelle 
angegebenen relativen Häufigkeiten lassen sich durch 
unterschiedlich lange Balken graphisch darstellen. 


Das entsprechende BASIC-Programm könnte folgen¬ 
dermaßen aussehen: 


30 PRINT TAB( 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / W.^OSS 1984" 

50 PRINT : PRINT TAB< 11)"4.6 - HISTOGRAMM" 

60 60SUB 1000: REM WARTEN 
70 N = 10: REM KLASSENANZAHL 

80 IF N > 39 THEN PRINT "KLASSENANZAHL ZU GROSS. BITTE KLASSEN" 
PRINT "ZUSAMMENLEGEN.": GOTO 500 
90 DIM F<N),FT<N) 

100 FÜR I = 1 TO N: READ F<I): NEXT I 
110 REM MAXIMALER F-WERT 
120 FM = 0 

130 FOR I = 1 TO N: IF F(l; > FM THEN FM = F<I) 

140 NEXT I 

150 REM NORMIERUNG 

160 FOR I = 1 TO N;FT(I) = F<I) * <35 / FM) 

170 FT<I) = INT <FT<I) * 100 + .5) / 100: NEXT I 
180 SW = 3 

200 REM ZEICHNEN ' 

210 GR : COLOR= 12: REM GRUEN 
220 HLIN 0,39 AT 35 
230 FOR I = 1 TO N 

240 ULIN 35 - FT<I),35 AT I SW + 5 
250 NEXT I 

260 UTAB 21; PRINT TAB< S)"10 20 30 40 50 60 70 80 90 >90" 

270 GOSUB 1000; REM WARTEN 

490 TEXT ; HOME 

500 PRINT "ENDE IN 500"; END 

600 DATA 10.3,16.4,14.6,13.4,14.2,11.9,8.9,7.8,2.4,0.2 
1000 REM UP WARTEN 

1010 UTAB 23; HTAB 6: INUERSE : PRINT "BITTE EINE TASTE DRUECKEN 

I 11 

1020 NORMAL 

1030 6ET A^: IF A^ = "" THEN 1030 
1040 RETURN 
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Dieses Programm soll kurz erläutert werden: 


Sätze 

Inhalt 

30 - 50 

Kommentar und Überschrift 

60 

Abwarten 

70- 80 

Vorgabe der Klassenzahl (bei Bedarf 
muß N anders belegt werden); wenn N > 39, 
sollten Klassen zusammengelegt werden, 
damit ein Bildschirm zur Ausgabe aus¬ 
reicht; 

90 

Dimensionierung 

100 

Einlesen der Ausgangsdaten 

110-140 

Bestimmung der maximalen Häufigkeit 

150-170 

Alle auszugebenden Häufigkeiten werden 
so umgerechnet, daß der Maximalwert 35 
Zeilen überdeckt. 

180 

Vorgabe einer Schrittweite (bei mehr als 

12 Klassen muß SW=2, bei mehr als 17 Klas¬ 
sen muß SW=1 sein; siehe auch oben 70-80) 

200-210 

Vorbereiten des Zeichnens 

220 

Waagrechte Linie am unteren Rand 

230-250 

Zeichnen senkrechter Histogrammbalken 

260 

Ausgabe einer numerischen Fußzeile; 
diese ist bei anderen Problemstellungen 
entsprechend zu ändern. 

270 

Abwarten 

490 

Zurückschalten in Textmodus und 
Schlußausdruck 

1000-1040 

Unterprogramm zum Abwarten 
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4,2.8 Beispiel 5; Ballspiel 

Aus den Graphikelementen, die in den vorangegangenen 
Beispielen verwendet wurden, läßt sich leicht - und 
dies soll das letzte Beispiel in diesem Zusammenhang 
sein - das "Grundmodell" eines sog. Bewegungsspiels 
entwickeln. 


Es handelt sich bei dem folgenden Programm um die 
einfachste Version eines "Ballspiels", wobei der Ball 
durch ein sich bewegendes Rechteck dargestellt wird, 
welches zwischen den "Spielfeldumrandungen" (siehe 
4.2.4) hin und her pendelt. 


3Ü PRINT TAB( 9) *'APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TAB< 9)"R.PRUST / W.C'OSS 1984" 
50 PRINT : PRINT TAB< 12)"4.7 - BALLSPIEL" 

60 GOSUB 1000; REM WARTEN 


70 GR 

80 L^TAB 23: HTAB 6: PRINT "BITTE 12 SEKUNDEN WARTEN. 

90 C0L0R= 12; REM GRUEN 
100 REM RAHMEN 

110 L»LIN 0,39 AT 0; ULIN 0 ,'39 AT d9 

120 HLIN 0,39 AT 0; HLIN 0,39 AT 39 

130 REM STARTPOSITION 

140 X = 10:Y = 25 

150 REM SCHRITTWEITE UND NEUE KOORDINATEN 

155 XU = 1:YU = 1 

160 NX = X + XU:NY = Y + YU 

170 IF NX > 38 THEN NX = 38;XU = - XU 

180 IF NX < 1 THEN NX = 1;XU = “ XU 

190 IF NY > 38 THEN NY = 38;YU = - YU 

200 IF NY < 1 THEN NY = 1:YU = - YU 

210 COLOR= 12; PLOT NX,NY; REM GRUENER BALL 

220 COLOR= 0; PLOT X,Y; REM LOESCHEN ALTE POSITION 

230 X = NX;Y = NY 

240 I = I + 1: IF I < =250 THEN 160 

250 UTAB 24: INPUT "WEITER ? <J/N> ";A^ 

260 IF A^ = "J" THEN 1=0; GOTO 160 

270 TEXT ; HOME ; PRINT "NA DENN NICHT"; END 

1000 REM UP WARTEN 

1010 UTAB 23: HTAB 6: INUERSE : PRINT "BITTE EINE TASTE DRUECKEN 
!": NORMAL 

1020 6ET A^; IF A^ = 

1030 RETURN 


THEN 1020 
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Sätze 

Inhalt 

30- 60 

Vorbemerkungen und Abwarten. 

70 

Umschalten auf Graphikmodus. 

80 

Löschen der Fußzeile. 

90 

Vorgabe der Rahmenfarbe. 

100-120 

Umrandung des "Spielfeldes". 

130-140 

Vorgabe der Startposition 
(kann verändert werden). 

150-155 

Vorgabe von Schrittweiten (sie 
bestimmen die Bewegungsgeschwin¬ 
digkeit und die -richtung des "Balls" 

160 

Bestimmung der neuen "Ball"-Koordi- 
naten. 

170-200 

Wird der "Spielfeldrand" erreicht, 
kehrt sich die Bewegungsrichtung des 
"Balls"um (hier könnten z.B. Rück¬ 
prallwinkel und Rückprallgeschwindig¬ 
keit alternativ festgesetzt werden). 

210-220 

An der neuen Position wird ein grüner 
"Ball" gezeichnet, an der alten Posi¬ 
tion ein schwarzer "Ball", d.h. an 
der alten Position wird faktisch ge¬ 
löscht (auf schwarzem Bildschirm), so 
daß der optische Eindruck einer Bewe¬ 
gung entstehen kann. 

230 

Der zuletzt erreichte Punkt wird hin¬ 
fort als der "alte" Punkt betrachtet, 
der im nächsten Durchlauf dieses Pro¬ 
grammteils (160-240) zu löschen ist. 

240 

Solange I nach der Erhöhung um 1 klei] 
als 250 ist (dieser Wert ist willkür¬ 
lich gewählt), wiederholt sich der Pr( 
zeß von 160 bis 240, d.h. der "Ball" 
läuft 250 Schritte weit. 
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Sätze 

Inhalt 

250-260 

Falls weiter gespielt werden soll, 
beginnt das Programm ab 160 mit 

250 weiteren Schritten. 

270 

Schlußausdruck. 

1000-1030 

Abwarten (Unterprogramm). 


Würde man nach dem gleichen Muster innerhalb des 
gleichen "Spielfeldes" gleichzeitig einen zweiten 
"Ball" fliegen lassen (sinnvollerweise mit anderen 
Startkoordinaten und mit anderen Bewegungs- bzw. 
Schrittweiteparametern), so könnte man durch Koordi¬ 
natenvergleich bei jedem Schleifendurchlauf (160 bis 
240) prüfen, ob die beiden "Bälle" sich berühren. 

In einem solchen Berührungsfall könnte mit der Mel¬ 
dung 


B U M M 

das Programm abbrechen. 

Der Leser versuche, selbst ein derartiges Programm 
zu erstellen. 
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4.3 Hochauflösende Graphik 

Es wurde schon erwähnt, daß man bei der hochauf¬ 
lösenden Graphik sich den Bildschirm aufgeteilt den¬ 
ken muß in 192 Zeilen und 280 Spalten. Jeder der so 
entstehenden 53760 Punkte ist einzeln ansprechbar, 
so daß wir die Möglichkeit haben, sehr "feine" Linien¬ 
züge durch den APPLE zeichnen zu lassen. Insbesondere 
im mathematischen Bereich ist dies von großem Nutzen, 
wie die folgenden Beispiele zeigen. 

Ergänzend ist anzumerken, daß auch hier - wie im Fall 
der Normalgraphik - am unteren Bildschirmrand Text¬ 
zeilen per Voreinstellung freigehalten werden, so daß 
uns effektiv für die hochauflösende Graphik bei den 
280 Spalten nur 160 (gedachte) Zeilen zur Verfügung 
stehen. 

Bei der Verwendung der hochauflösenden Graphik ist aller¬ 
dings auf einen besonderen Umstand zu achten: 

Der Speicherbedarf ist beträchtlich, und es kann deshalb 
leicht passieren, daß zu lange Programme die Bildschirm¬ 
ausgabe der Graphik "stören" (und damit dann in der Re¬ 
gel zunichte machen). 

Dieses Problem kann aber gelöst werden: 

Wenn solche Störeffekte auftreten - sie sind in der Re¬ 
gel daran erkennbar, daß der Rechner anstelle einer 
schönen Graphik in unregelmäßiger Weise Pünktchen über 
den Bildschirm verstreut - so können diese mit den An¬ 
weisungen HIMEM und LOMEM gelöst werden. 
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Es ist dabei zu beachten, daß für die hochauflösende 
Graphik im APPLE-Rechner zwei Pufferbereiche zur Ver¬ 
fügung stehen, so daß alternativ zwei "Bildschirm¬ 
seiten" ausgegeben werden können. 

Soll der Pufferbereich I verwendet werden (wir gehen 
dabei von Rechnern mit mehr als 32 KByte aus), dann 
ist es sinnvoll, LOMEM bei der Adresse 16384 festzu¬ 
legen. 

Dann wird das Benutzerprogramm oberhalb dieser Adresse 
gespeichert und kann somit die Graphikausgabe nicht 
stören. (Nähere Einzelheiten sind den Benutzerhandbü¬ 
chern zu entnehmen). 

Wenn allerdings mit nicht zu großen Programmen gearbei¬ 
tet wird, braucht man sich um die obigen Anmerkungen 
nicht zu kümmern. 
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4.3.1 "Einschalten" der hochauflösenden Graphik 

Die hochauflösende Graphik wird vorbereitet mit der 
Anweisung 


HGR 


Sie löscht den ersten Graphik-Pufferbereich und stellt 
ihn hinfort für die hochauflösende Graphikausgabe zur 
Verfügung (entsprechend HGR2 für den zweiten Puffer¬ 
bereich) . Die Bildschirmaufteilung ist - wie schon er¬ 
wähnt - 280 Spalten und 160 Zeilen, zuzüglich 4 Text¬ 
zeilen am unteren Bildschirmrand. 


Beim zweiten Pufferbereich stehen keine Textzeilen 
zur Verfügung, es sei denn, man gibt ein: 

HGR2: POKE-16301,0 

(allerdings müssen dann auch die auszugebenden Textda¬ 
ten per POKE gespeichert worden sein; dies ist recht 
umständlich, weshalb diese Möglichkeit, die ja nur in 
Ausnahmefällen wichtig wird, hier nicht weiter verfolgt 
werden soll). 

Auch hier erfolgt die "Zurückschaltung" in den Text¬ 
modus mit der Anweisung 


TEXT 
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4.3.2 Farben 


Beim Zeichnen in hochauflösender Graphik kann man 
sich sechs verschiedener Farben bedienen (Farbkarte 
und Farbmonitor natürlich wieder vorausgesetzt). 

Die entsprechende Anweisung lautet: 


HCOLOR = Zahl 


An der Stelle "Zahl" steht ein Wert zwischen 0 und 7 
gemäß der folgenden Farbtabelle: 

Farben: 


Zahl 

Farbe 

Zahl 

Farbe 

0 

schwarz 

4 

schwarz 

1 

grün 

5 

orange 

2 

violett 

6 

blau 

3 

weiß 

7 

weiß 
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4.3.3 Graphik-Anweisungen 

Wie schon bei der Normalgraphik sind die wesent¬ 
lichen Graphik-Anweisungen auch hier die zum Zeich¬ 
nen eines Punktes bzw. zum Zeichnen einer geraden 
Linie. 

Zum Zeichnen eines Punktes benutzen wir die Anwei¬ 
sung 


HPLOT S, Z 


Diese Anweisung setzt einen Punkt an die Kreuzung 
der Spalte Nr. S mit der Zeile Nr. Z. 

Die Anweisung 

HPLOT Z^ TO S 2 , ^2 


zeichnet eine gerade Linie zwischen den Punkten P^ 
(S^, Z^) und P 2 (S 2 / Z 2 ). 

Durch Erweiterung dieser Anweisung kann auch eine 
Folge von Linien gezeichnet werden, wie das folgende 
Beispiel verdeutlicht: 


HPLOT 10,10 TO 279,159 TO 50,50 
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4.3.4 Beispiel 1; Koordinatensystem 

In einem ersten Beispiel für hochauflösende Graphik 
zeigen wir, wie ein rechtwinkliges Koordinatensystem 
an beliebiger Stelle des Bildschirms positioniert 
werden kann. Vorzugeben sind dafür die Spalte S und 
die Zeile Z des Koordinatenursprungs (S muß zwischen 
0 und 279, Z zwischen 0 und 159 liegen). 


ACHTUNG1 : Wie bei vielen anderen Programmen 

auch, ist hier nicht vorgesehen, 
fehlerhafte Eingaben "abzufangen" 
(der Leser kann solche "Sicherungen" 
leicht nachträglich in das Programm 
einbauen). 


3Ü 

PRINT 

TAB( 9)"APPLE-TIPS UND TRICKS" 


40 

PRINT 

: PRINT : PRINT 

TAB< 9)"R.PRUST 

X'' W.' 

50 

PRINT 

: PRINT TAB( 11>"4.8 - ACHSENKREUZ" 

60 

t»TAB 20: PRINT "BITTE 

CONT EINGEBEN": 

STOP 

70 

HOME 




SO 

INPLIT 

"SPALTE DES URSPRUNGS : ";S 


90 

PRINT 

: INPLIT "ZEILE DES URSPRUNGS : 

" ;Z 

100 

H6R : 

HC0L0R= 7: REM 

WEISS 


110 

HPLOT 

0,Z TO 279,Z 



120 

HPLOT 

S,0 TO S,159 



130 

t'TAB 

23: PRINT "BITTE 

CONT EINGEBEN": 

STOP 

140 

TEXT 

: HOME : PRINT “ 

ENDE": END 



1984" 
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Es ist bei diesem und auch bei den folgenden Pro¬ 
grammen bei Verwendung eines Schwarz-Weiß-Monitors 
darauf zu achten, welche "Farbe" in der Anweisung 
HCOLOR ausgewählt wird. Es kann bei bestimmten Far¬ 
ben und/oder bei bestimmten Richtungen der dünnen, 
hochaufgelösten Linien geschehen, daß die Bildschirm¬ 
ausgabe dieser Linien unterdrückt wird. 

Durch Ausprobieren verschiedener "Farben" kann dieses 
Problem gelöst werden. 


4.3.5 Beispiel 2; Lineare Funktion 

Soll in ein Achsenkreuz eine Gerade eingezeichnet 
werden, so beschränkt man sich in erster Linie auf 
den ersten Quadranten, legt also den Achsenursprung 
nach links unten - so auch auf dem Bildschirm. 

Dieser Punkt ist auf dem hochauflösenden Bildschirm 
gekennzeichnet durch die Spalte S=0 und die Zeile 
Z=159. Mit diesen Vorgaben kann hier also auf das 
Programm des vorangegangenen Abschnitts zurückgegriffen 
werden. 

Die Lage der Geraden im Achsenkreuz wird durch die 
beiden Parameter 

- Ordinatenabschnitt a 

- Steigung (Tangens des Steigungswinkels) b 
bestimmt, gemäß der Funktionsgleichung: 

Yi = a + bx^ 
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Das Programm muß also die beiden Geradenparameter 
als Inputinformationen bekommen. Dann können ohne 
Schwierigkeiten Achsenkreuz und Gerade gezeichnet 
werden. 


30 PRINT TAB( 9)"APPLE-TIPS UND TRICKS“ 

40 PRINT : PRINT : PRINT 'TAB< 9)"R.PRUST / UJ.t»0SS 1984“ 
50 PRINT : PRINT : PRINT TAB( 13)"4.9 - GERADE" 

60 t'TAB 20; PRINT "BITTE CONT EINGEBEN"; STOP 

70 HOME ;S = 0;Z = 159 

80 INPUT "ORDINATENABSCHNITT A ; ";A 

90 PRINT ; INPUT "GERADENSTEIGUNG B ; ";B 

100 HGR ; HC0L0R= 7; REM UIEISS 

110 HPLOT 0,2 TO 279,2 

120 HPLOT S,0 TO S,159 

130 FOR X = 0 TO 279 

140Y=159-A-B*X 

150 IF Y < 0 OR Y > 159 THEN 170 

160 HPLOT X,Y 

170 NEXT X 

180 UTAB 23; PRINT "ENDE DER AUSGABE"; END 
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Auch hier soll eine kurze Prograimnbeschreibung 
das Verständnis des Programmablaufs erleichtern: 


Sätze 

Inhalt 

3 0- 50 

Überschrift 

60 

Prograimnunterbrechung 

70 

Löschen des Bildschirms und 

Vorgabe der Koordinaten für 
das Achsenkreuz 

80- 90 

Vorgabe der Geradenparameter 

100 

Umschalten auf hochauflösende 
Graphik 

110-120 

Zeichnen des Achsenkreuzes 

130-170 

Zeichnen der Geraden 

130 Vorgabe der X-Koordinate; 

140 Bestimmung der Y-Koordinate 
unter Beachtung der Zeilen¬ 
einteilung des Bildschirms 

150 Abfangen unzulässiger Y-Werte 

160 Zeichnen eines Punktes der 
Geraden 

170 Nächster Punkt 

180 

Schlußausdruck und Beendigung 
des Programms. 
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4,3,6 Beispiel 3; Kreis 

Daß mit der hochauflösenden Graphik auch gekrümm¬ 
te Linien gezeichnet werden können, zeigt am einfach¬ 
sten das Beispiel des Kreises, 

Inputinformationen müssen jetzt die Koordinaten des 
Mittelpunkts und der Radius des Kreises sein. 

Da generell das Zeichnen so vonstatten gehen kann, 
daß Punkt für Punkt gezeichnet wird, muß also zu 
jedem im Funktionsbereich liegenden X^-Wert (= Spal¬ 
tenkoordinate) der über die mathematische Beziehung 
feststellbare Y^-Wert (= Zeilenkoordinate) bestimmt 
werden. 

Dazu benötigt man die Kreisgleichung, die - bei be¬ 
liebigem Mittelpunkt - folgendermaßen lautet: 


(y, - Kr * (K 'Kr 


r 


wobei “ Y-Koordinaten 



= X-Koordinaten 


r 


= Radius 


X 


o 


= X-Koordinate des Mittelpunkts 


Y 


o 


= Y-Koordinate des Mittelpunkts 
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Die X-Koordin^tenwerte bewegen sich dabei natürlich 
im Bereich zwischen und r+X^, die Werte 

konstituieren den oberen Halbkreis, die Werte 
den unteren. 

Es ist dabei in diesem Zusammenhang daran zu erin¬ 
nern, daß auf dem Bildschirm die oberen Zeilen nie¬ 
drigere Z-Werte aufweisen (= Y-Koordinaten) als die 
unteren Zeilen. Weiterhin ist dafür Sorge zu tragen, 
daß bei Variation der X- und der Y-Werte die zulässi¬ 
gen Grenzen nicht überschritten werden. 

Ein entsprechendes Programm sieht dann folgender¬ 
maßen aus: 


30 PRINT TAB< 9)"APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT ; PRINT TAB< 9)"R.PRUST / W.fOSS 1984" 

50 PRINT : PRINT : PRINT TAB< 13)"4.10 - KREIS" 

60 fTAB 20: PRINT "BITTE CONT EINGEBEN": STOP 
70 HOME :S = 0:2 = 159 ’ 

80 INPUT "X-KOORDINATE DES MITTELPUNKTES : ";A 

90 PRINT : INPUT "Y-KOORDINATE DES MITTELPUNKTES : ";B 

95 PRINT : PRINT : PRINT : INPUT "RADIUS : ";R 

100 HGR : HC0L0R= 7: REM UIEISS 

110 HPLOT 0,2 TO 279,2 

120 HPLOT S,0 TO S,159 

130 FOR X=A-RT0A+R 

140 H = R * R - (X - A) "2 

150 IF H < =0 THEN 200 

160 Y1 = B + SQR (H):Y2 = B - SQR <H) 

170 IF X < 0 OR X > 279 OR Y1 < 0 OR Y1 > 159 THEN 190 
180 HPLOT X,Y1 

190 IF X < 0 OR X > 279 OR Y2 < 0 OR Y2 > 159 THEN 200 
195 HPLOT X,Y2 
200 NEXT X 

210 UTAB 23: PRINT "ENDE DER AUSGABE": END 
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Auch hier fügen wir eine Programmbeschreibung an, 
bei der wir uns aber jetzt etwas kürzer fassen kön¬ 
nen, weil viele Prograimnbestandteile auch im voran¬ 
gegangenen Beispiel schon auftauchten: 


Sätze 

Inhalt 

30,- 50 

Überschrift 

60 

Programmunterbrechung 

70 

Löschen des Bildschirms und 

Angabe der Achsenkoordinaten 

80- 95 

Vorgabe der Mittelpunkt- 
Koordinaten und des Radius 

100 

Umschalten auf hochauflösende 

Graphik 

110-120 

Zeichnen des Achsenkreuzes 

130-200 

Zeichnen des Kreises 

130 Angabe des Wertebereichs der 
X-Koordinaten 

140 Bestimmung einer Hilfsgröße H 

150 Abfangen unzulässiger H-Werte 

(aus H wird die Wurzel gezogen!) 

160 Bestimmung der Y-Koordinaten 

für den unteren und den oberen 
Halbkreis 

170 Abfangen unzulässiger Koordina¬ 
ten 

180 Zeichnen des unteren Halbkreises 

190 Abfangen unzulässiger Koordinaten 

195 Zeichnen des oberen Halbkreises 

200 Nächster Punkt 

210 

Ende des Programms 
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4.3.7 Beispiel 4; Dreidimensionale Graphik 

Natürlich ist es auch möglich, dreidimensionale Gra¬ 
phiken zu erzeugen - wenn auch etwas aufwendiger. 

Dies zeigt das folgende Beispiel eines Quaders: 



Das entsprechende Programm, das der Einfachheit hal¬ 
ber mit festen Vorgaben für Länge, Breite, Tiefe und 
Betrachtungswinkel arbeitet (selbstverständlich könn¬ 
ten aber diese Informationen auch über INPÜT alterna¬ 
tiv vom Benutzer vorgegeben werden), stellt sich fol¬ 
gendermaßen dar: 


30 PRINT TABC 9)"APPLE-TI PS UND TRICKS" 

40 PRINT : PRINT : PRINT TABC 9)"R.PRUST / Ul.C'OSS 19S4" 
50 PRINT : PRINT ; PRINT TAB( 12)"4.11 - QUADER" 

60 C'TAB 20: PRINT "BITTE CONT EINGEBEN": STOP 
70 HOME 

SO XI = 50:X2 = 100:X3 = 70:X4 = 120 
90 YT = 50:Y2 = S0:Y3 = 3ü:Y4 = 60 
100 H6R : HC0L0R= 7: REM UIEISS 

110 HPLOT X1,YT TO X2,Y1 TO X2,Y2 TO XI ,Y2 TO XI ,Y1 

130 HPLOT X3,Y3 TO X4,Y3 TO X4,Y4 TO X3,Y4 TO X3,Y3 

140 HPLOT XI,Y1 TG X3,Y3 

150 HPLOT X2,Y1 TO X4,Y3 

160 HPLOT X2,Y2 TO X4,Y4 

165 HPLOT XI,Y2 TO X3,Y4 

170 'v^TAB 23: PRINT "ENDE": END 
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Man könnte ein derartiges Programm nun so weiter¬ 
führen, daß die Eckpunkte des Quaders einer gleich¬ 
mäßigen, z.B. kreisförmigen Bewegung unterworfen wer¬ 
den. Man erhält dann sich bewegende dreidimensionale 
Bilder, die andeuten, wie derartige Konzepte im Kon¬ 
struktionswesen oder im Architekturwesen verwendet 
werden können. 

Für derartige Probleme gibt es aber eine Reihe ge¬ 
eigneter Hilfsprogramme und Software-Angebote, so 
daß die Mühe eigener Programmierung hier eher unan¬ 
gebracht ist. 
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4.4 Das Mischen von Text und Graphik 

Häufig ist es sinnvoll, daß auf einer Bildschirm¬ 
ausgabe Graphik und Text gemischt werden. 


Wünschenswert ist etwa die Beschriftung der Achsen 
des Achsenkreuzes, die Kennzeichnung von Reihen, 
zumindest wenn mehrere gleichzeitig in einer Graphik 
auftauchen u.ä. 

Es bieten sich dafür verschiedene Möglichkeiten an, 
die aber alle nicht voll befriedigen können: 

1. Bestimmte, erläuternde Texte können in die 
unteren Zeilen des Graphikbildschirms einge¬ 
setzt werden, wie dies in vorangegangenen 
Beispielen schon geschehen ist. 

2. In eine Graphik einzusetzende Schriftzeichen 
oder Ziffern könnten auch "eingezeichnet" wer¬ 
den, indem diese Symbole gewissermaßen als 
Graphikbestandteile behandelt werden. 

3. Geeignete Hilfsprogramme stehen zur Verfügung, 
die auf geschickte Weise das Mischen von Gra¬ 
phik und Text erlauben. 
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Zu Punkt 1. braucht hier nichts mehr gesagt zu 
werden; wohl aber zu den beiden folgenden Punkten. 


4.4.1 "Zeichnen" von Symbolen 

Betrachtet man sich einmal ein Symbol auf dem 
Bildschirm genauer, z.B. die 1, so sieht man, daß 
diese Ziffer aus einer Reihe von Punkten aufgebaut 
ist. Diese Punkte könnte man natürlich mit einer 
Reihe von HPLOT-Anweisungen in einen auf den Graphik¬ 
modus umgeschalteten Bildschirm hineinzeichnen. 

Diese Vorgehensweise, die zunächst umständlich scheint, 
bietet drei Vorteile: 

1. Symbole erscheinen auf dem Graphikbildschirm 
(das ist ja auch das Ziel dieser Prozedur). 

2. Diese Symbole können an beliebige Bildschirm¬ 
stellen plaziert werden. 

3. Die Symbole können in unterschiedlicher Größe 
ausgegeben werden. 


Das folgende Programm ist ein derartiger "Grundbau¬ 
stein" : 



30 PRINT TAB< 8)"APPLE - TIPS UND TRICKS" 

40 PRINT : PRINT ; PRINT 

50 PRINT TAB< 8) " R . PRUST / W .L»OSS , 1984" 

60 PRINT I PRINT : PRINT : PRINT TAB< 9>"4.13 - SYMBOLZEICHNEN" 
PRINT : PRINT 

70 PRINT : PRINT ; PRINT "DIESES PROGRAMM ZEICHNET DAS SYMBOL 
1 " 

SO PRINT "IN UNTERSCHIEDLICHER GROESSE, ALTERNA-" 

90 PRINT "TW WAEHLBARER STRICHSTAERKE UND AN BE-" 

95 PRINT "LIEBIGE POSITIONEN DES BILDSCHIRMS" 

96 PRINT ; PRINT "ACHTUNG : ": PRINT : PRINT "DIESES PROGRAMM 
PRUEFT NICHT AUF UNZU-": PRINT "LAESSIGE WERTE BEI DER GRAPHIK 


97 GOSUB 5000: REM WARTEN 





120 

GOSUB 

1000: REM 1 





130 

PRINT 

: PRINT "ENDE": END 





1000 

REM 1 

ÜP 1 





1010 

HOME 

: INPUT "UERGROESSERUNGSFAKTOR 

• » 

FX 

1015 

PRINT 

: INPUT "STRICHSTAERKE 



. » 

;ST 

1020 

PRINT 

: INPUT "START <S,Z) : 

" 1 

iS.2 



1025 

HGR : 

HCOLOR= 3 





1040 

FOR K 

= 1 TO ST 





1050 

HPLOT 

S + FX * 2,Z TO S + FX 


3,2 



10 70 

HPLOT 

S + FX * 3,Z TO S + FX 


3, Z + 

FX 

* 8 

1080 

HPLOT 

S + FX,Z + FX * 8 TO S 

+ 

FX * 

5,2 

+ f: 

1090 

HPLOT 

S,Z + FX * 2 TO S + FX 

* 

2,Z 
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1110S=S+1:Z=Z+1 
1120 NEXT K 

1130 GOSUB 5000: REM WARTEN 

1140 TEXT : RETURN 

5000 REM UP WARTEN , 

5010 UTAB 23: CALL - 868: INUERSE : HTAB 6: PRINT "BITTE EINE 
taste DRUECKEN !": NORMAL : POKE - 19368,0: WAIT - 16384,128: 
POKE - 16368,0: UTAB 23: CALL - 868: RETURN 


Dieses Programm zeichnet in ein vorgegebenes Feld 
die Ziffer 1 , wobei Größe und Strichstärke alterna¬ 
tiv vorgegeben werden können. Die Lage des zu be¬ 
legenden Feldes wird fixiert durch Spalte und Zeile 
der Ecke oben links. 
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So wie das Problem hier für die Ziffer 1 gelöst 
wurde, so könnten auch Programme für die anderen 
Ziffern, für Buchstaben und für Sonderzeichen 
entwickelt, als "Bausteine" in Reserve gehalten 
und bei Bedarf verwendet werden. 


Eine kurze Programmbeschreibung soll die Funktions¬ 
weise erläutern: 


Sätze 

Inhalt 

30- 96 

Überschrift und Erläuterungen 
zum Programm 



97 

Sprung ins UP 5000: Warten 



120 

Sprung ins UP 1000 zum Zeichnen 



130 

Beendigung des Programms 



1010-1015 

Eingabe von Vergrößerungsfaktor 
und Strichstärke der zu zeichnenden 

1. 

1020 

Vorgabe der Startkoordinaten auf 
dem Bildschirm (S=Spalte, Z=Zeile). 



(Es handelt sich dabei um 
die linke obere Ecke des 

Feldes, in das die 1 ge¬ 
zeichnet wird, wie neben¬ 
stehende Skizze verdeut¬ 
licht) . 

7 





1025 

Umschalten auf Graphikmodus und 
Farbvorgabe . 



1040-1120 

Zeichnen des Symbols 1 




1040: Wiederholung so oft, wie 

die Strichstärke ST vorgibt 


1050-1090: Zeichnen 




1110: Verschiebung gemäß Strich¬ 

stärke 
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Sätze 

Inhalt 

1130 

Sprung ins UP 5000: Warten 

1140 

Umschalten in Textmodus und 


Rücksprung 

5000 

Beginn des UP Warten 

5010 

Ausgabe einer Meldung in inverser 


Schrift; Abwarten einer Tasten¬ 


eingabe und Rücksprung 


Man erkennt aus dieser Beschreibung, daß mit jewei¬ 
liger Zeilen- und Spaltenverschiebung um 1 das Sym¬ 
bol in 1050-1090 so oft wiederholend gezeichnet wird, 
wie durch die Strichstärkenangabe verlangt wird. 

Der "Kern" des Programms sind also die Sätze 1050 
bis 1090: Sollte ein anderes Symbol als die 1 ge¬ 
zeichnet werden, müßten an dieser Stelle entsprechend 
andere HPLOT-Anweisungen stehen. 
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4.4.2 Hilfsprogramme zum Mischen von 
Text und Graphik 

Das Mischen von Text und Graphik ist bei den meisten 
Rechnern nicht ganz unproblematisch, insbesondere wenn 
es um die hochauflösende Graphik geht. 

Wenn nämlich auf diesen Graphikmodus umgeschaltet wird, 
dann stehen zwar auf der ersten von zwei Bildschirm¬ 
seiten die unteren beiden Zeilen noch für Texte zur 
Verfügung, bei der zweiten Bildschirmseite aber nichts 
mehr. 

Und auch die genannten unteren zwei Zeilen nützen 
nicht allzuviel, wenn man beispielsweise Buchstaben und/ 
oder Ziffern "mitten" in eine Graphik hineinplazieren 
möchte - etwa zur Beschriftung von Achsen eines Koordi¬ 
natensystems oder zur Kennzeichnung von Zeitreihen oder 
von mathematischen Funktionen, die gezeichnet wurden, 
und dergl. 


Dieses Problem kann auch mit geeigneten Graphik- 
Hilfsprogrammen gelöst werden, über die in diesem 
Buch aber nicht gesprochen werden soll. Der interes¬ 
sierte Leser wird entsprechende Informationen von 
jedem guten Software-Anbieter einholen können. 
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Abschließend sei darauf hingewiesen, daß man spe¬ 
zielle Symbole auch so erzeugen kann, daß man die 
betreffende Linienfolge in einer Vektorentabelle er¬ 
faßt, deren Binärcode ermittelt und diese Tabelle 
dann im Bedarfsfall aufruft. 

Diese Methode ist recht umständlich und soll hier 
nicht näher erläutert werden, weil sich eine an¬ 
schauliche Beschreibung bei Lon Poole, Martin McNiff 
und Steven Cook findet (APPLE II Anwendungshanbuch, 
Münche- 1981, Seite 6-13 ff.). 
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Kapitel 5; Verbesserung der Programmstrukturen 


5.1 Vorbemerkungen 

Unter dieser Überschrift sollen einige Befehle, die 
den Programmablauf betreffen, nach kurzer Einführung 
anhand von Programmbeispielen näher erläutert werden. 
Die Sprungbefehle GOTO und IF...THEN sind nicht die 
einzigen Anweisungen, die Sprünge innerhalb eines 
Prograinins ermöglichen. Der Befehl GOSUB wurde eben¬ 
falls schon mehrfach verwendet, doch fehlten grund¬ 
legende Bemerkungen zu den Einsatzmöglichkeiten. 

Dies soll nun nachgeholt werden. Dabei wird deutlich 
werden, daß der Benutzer - wie in vielen anderen Fäl¬ 
len - auch bei der Gestaltung des Programmablaufs einen 
Kompromiß eingehen muß. Die beiden Optimalitätskrite- 
rien "schnellstmögliche Ausführung" und "geringster 
Speicherplatzbedarf" sind in der Regel nicht gleich¬ 
zeitig zu verwirklichen. Kommen weitere Punkte hinzu - 
etwa übersichtliche Bildschirmgestaltung, Benutzer¬ 
freundlichkeit, gute "Lesbarkeit" des Programms, pro¬ 
blemlose Veränderungsmöglichkeiten - so wird ein Kom¬ 
promiß schwierig. Jeder einzelne Benutzer wird dann 
für sich festlegen, welcher am stärksten gewichtet wird 
von den vorher genannten Aspekten und wird eventuell 
auch noch weitere Punkte in seine Überlegungen mit ein¬ 
beziehen. 
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Schließlich wird auch die spezielle Aufgabenstellung 
eine Rolle spielen und natürlich der potentielle 
Nutzerkreis. Wer nur für sich selbst programmiert, 
braucht sicher nicht so sehr auf Benutzerfreundlich¬ 
keit zu achten wie jemand, der Programme schreibt 
für Freunde und Bekannte, die vielleicht nicht so ge¬ 
übt sind in der Rechnerbedienung. 

So wird sich denn jeder Leser aus den folgenden Anre¬ 
gungen vielleicht etwas anderes herausgreifen wollen 
für seine eigene Arbeit. 
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5.2 Unterprogrammtechnik 

Auch ohne den Einsatz von Unterprogrammtechnik kann 
man programmieren und vermutlich gar nicht einmal 
so sehr schlecht. Der Verzicht auf Unterprogramme - 
und damit auf Sprünge - erleichtert es in jedem Fall 
dem Leser eines Programmlistings, die Arbeitsweise 
und den Ablauf eines Programms zu verstehen. 

Doch hat dieser Programmierstil auch Nachteile. Wenn 
dieselben Anweisungsfolgen mehrfach ins Programm auf¬ 
genommen werden, wird das Programm u.U. wesentlich 
länger und dadurch wieder etwas weniger überschaubar, 
und natürlich wird mehr Speicherplatz benötigt. 

Auch das Eintippen solcher Programme dauert länger 
als nötig wäre. 

So wird denn auf Dauer niemand ganz auf Unterprogramme 
verzichten. 

Unterprogramme sind Anweisungsfolgen, die meist für 
sich genommen vollständige Programme sind, möglicher¬ 
weise ohne die erforderlichen Dateneingabebefehle; 
die Wertzuweisung für die Variablen erfolgt oft im so¬ 
genannten Hauptprogramm. Zumindest aber sind es Be¬ 
fehlsblöcke, die in der Regel eine klar abgegrenzte 
Aufgabe erfüllen. Als Beispiel könnten einige Programme 
des Kapitels 4 herangezogen werden: Im Hauptprogramm 
werden die für die Graphik erforderlichen Werte einge¬ 
geben bzw. berechnet, das Unterprogramm leistet das 
Zeichnen. 

Es können "beliebig" viele Unterprogramme aufgenommen 
werden (die einzige Beschränkung stellt der Speicher¬ 
platz dar); Unterprogramme können ihrerseits Unterpro¬ 
gramme aufrufen. 
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Wenn eine Folge von Befehlen in einem Programm mehr¬ 
fach auftaucht, ist es sinnvoll, sie als Unterprogramm 
zu gestalten, d.h. als eigenständigen Block, der am 
Anfang oder Ende des Hauptprogramms plaziert wird, und 
diesen Block mit dem Befehl GOSUB anzuspringen. 

Der letzte Befehl des Unterprogramms muß die Anweisung 
RETURN sein. Dadurch erfolgt die Rückkehr ins Haupt¬ 
programm zur ersten Anweisung hinter dem aufrufenden 
GOSUB. 


Sehr kurze, häufig aufgerufene Unterprogramme - wie 
z.B. die bedingte Warteschleife durch GET oder WAIT “ 
sollten bei langen Programmen an den Anfang gesetzt 
werden, längere Unterprogramme hingegen hinter den END- 
Befehl des Hauptprogramms. Der Grund liegt in der Aus- 
führungsgeschwindiqkeit . Jeder Sprung innerhalb eines 
Programms - ganz gleich, welche Sprunganweisung verwen¬ 
det wird - kostet Zeit, und zwar abhängig von der Sprung 
weite. Bei jedem Sprung beginnt der Rechner das Pro¬ 
gramm von Anfang an zu durchsuchen nach der Zeile mit 
der angegebenen Sprungadresse. Unterprogramme mit nie¬ 
drigen Zeilennummern werden also wesentlich schneller ge 
funden als solche mit hohen Zeilennummern. 

Damit ein vernünftiges Verhältnis zwischen der für den 
Sprung benötigten Zeit und der Ausführungszeit des Un¬ 
terprogramms erreicht wird, sollte die obige Regel be¬ 
achtet werden. Allerdings müssen natürlich am Anfang 
stehende Unterprogramme durch GOTO übersprungen werden, 
damit sie nicht schon bei Start des Programms ausge¬ 
führt werden, so daß der Aufbau schematisch so darge¬ 
stellt werden kann: 
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1. GOTO - Sprung zum Beginn des Programms. 

2. Kurze Unterprogramme, die vom Hauptprogramm 
oder anderen Unterprogrammen aufgerufen werden. 

3. Beginn des Hauptprogramms. 

"Initialisierung" durch Dimensionierung, De¬ 
finition von Funktionen, Festlegung von Konstan¬ 
ten, eventuell Einlesen der Daten. 

Programmkern 

4. END - Ende des Hauptprogramms. 

5. Lange Unterprogramme. 


Ein Nachteil des Unterprogrammeinsatzes auf dem APPLE - 
neben den schon erwähnten - liegt im Aufbau der Sprache 
BASIC begründet. Variablenwerte, die das Unterprogramm 
aus dem Hauptprogramm übernimmt, müssen im Hauptpro¬ 
gramm genau den Variablennamen zugewiesen sein, die auch 
das Unterprogramm verwendet. Bei mancher anderen Pro¬ 
grammiersprache ist das komfortabler gestaltet. 

Es können etwa zwei Variablenlisten einander gegenüber¬ 
gestellt werden, eine für die Variablen des Hauptpro¬ 
gramms, eine für die des Unterprogramms; über die Posi¬ 
tion in den Listen erfolgt die Übergabe der erforder¬ 
lichen Werte. 

Nun aber zu einem Anwendungsbeispiel: Wir kommen noch 
einmal auf das Sortierprogramm aus Kapitel 1 zurück, 
jetzt allerdings in etwas abgewandelter Form. 

Es werden zwei Stringarrays eingelesen (N$ für Namen 
und A^ für Altersangaben). 
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Das Programm soll nacheinander erst das Namensarray 
sortieren, dabei das Altersarray mitführen und eine 
entsprechende Bildschirmausgabe machen und dann das 
Altersarray, wobei das Namensarray mitgeführt wird. 

Es erfolgt wiederum eine Bildschirmausgabe. 

Die Ausgabe soll eine Überschrift umfassen und je¬ 
weils 5 Elemente aus den sortierten Arrays. Während 
des Sortiervorgangs erscheint ein Hinweis darauf, ob 
es sich um den ersten oder den zweiten Sortiervorgang 
handelt. 

Das Programm wird in drei Versionen vorgestellt: 
eine ohne jedes Unterprogramm, eine mit geradezu ek- 
zessiver Nutzung der Unterprogrammtechnik und eine 
Zwischenstufe. 

Wir beginnen mit dem besonders abschreckenden Beispiel. 
Das Hauptprogramm leistet nichts anderes als die 
"Initialisierung", das bedeutet hier Dimensionierung, 
Festlegung von Konstanten und Einlesen der Daten, und 
die Variablenübergabe vom Hauptprogramm an die Unter¬ 
programme, bzw. von den Unterprogrammen ans Hauptpro¬ 
gramm und als letztes den Ausdruck "E N D E". 

Alles andere steht in den Unterprogrammen. Der Leser 
wird feststellen, daß das Programm sehr schwer lesbar 
ist, der Ablauf läßt sich kaum verfolgen. Am Bild¬ 
schirm schon gar nicht. Außerdem ist der Nutzen im 
Beispiel relativ gering; dies liegt allerdings teil¬ 
weise auch an der Wahl der Aufgabenstellung. 

Der benötigte Speicherplatz ist größer als bei den 
beiden anderen Versionen, wie später in einer Übersicht 
deutlich wird. 
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NICHT ZU EMPFEHLEN 


3 HOME : HTAB (9>: PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB (9): PRINT "R.PRUST / N.UOSS 1984”: 
PRINT 

10 REM DEMONSTRATIONSBEISPIEL 

11 REM FUER UNTERPROGRAMMTECHNIK 

20 GOTO 200 

30 L»TAB 22: CALL - 868: HTAB 6: INL^ERSE : PRINT "DRUECKEN 
SIE IRGENDEINE TASTE”: NORMAL : POKE - 16368,0: NAIT 
- 16384,128: POKE - 16368,0: L»TAB 22: CALL - 868: RETURN 

40 H$ = Y$<I):Y^<I) = Y^<J):Y^(J) = H^:H^ = XS<I):X^<I) 

= X^(J):X^<J> = H^: RETURN 

50 FOR Q = 1 TO 40: PRINT "X”;: NEXT : PRINT : RETURN 


60 HOME : GOSUB 50: HTAB 6: PRINT "SORTI ERPRO 
GRAMM”: PRINT : GOSUB 50: RETURN 

70 Z = 0: FORI = 1 TO N: PRINT N^(I),A^<I):2 = Z + 1: 
IF Z = M AND I < N THEN GOSUB 90:Z = 0 
80 NEXT I: GOSUB 90: RETURN 

GOSUB 50: GOSUB 30: GOSUB 60: RETURN 

1 : FOR J = I + 1 TO N: IF Y^<I) 


> 


INL^ERSE ; 
RETURN 


PRINT R;". RUNDE" 


90 PRINT 

100 FOR I = 1 TO N 
Y^(J) THEN GOSUB 40 
110 NEXT J,I: RETURN 
120 GOSUB 60: L>TAB 12: HTAB 15: 

NORMAL : FOR Q = 1 TO 10,00: NEXT 
200 REM BEGINN DES PROGRAMMS 
210 N = 20 

220 HOME : TEXT : DIM N^<N),A^<N),Y^<N),X^<N) 

230 M = 5 

240 FOR I = 1 TO N: READ N^(I),A^<I>: NEXT 

250 R = 1: GOSUB 120: FOR I = 1 TO N:Y^<I> = N^(I):X^<I) 

= A^d): NEXT : GOSUB 100 

260 FOR I = 1 TO N:N^<I) = Y^<I):A^<I) = X«<I): NEXT ; 
GOSUB 60: GOSUB 70 

270 R = 2: GOSUB 120: FOR I = 1 TO N:Y^(I) = A^<I):X^<I) 

= N^<I>: NEXT : GOSUB 100 

280 FOR I = 1 TO N:A^(I) = Y^<I):N^<I) = X^<I): NEXT : 
GOSUB 60: GOSUB 70 

290 L^TAB 12: HTAB 15: INL^ERSE : PRINT “E N D E": NORMAL 
: END 

1000 DATA MUELLER,40,FRIEDRICHS,23,MEIER,17,MAIER,52 

10 10 DATA KOCH,45,SCHUHMANN,34,NEUHAUS,21,MI ES,57 

1020 DATA LUDWIG, 14,HAUSMANN,33,ADAM,41,GRIMM,28 
1030 DATA OBERMANN,62,GROTE,24,NAGEL,58,MUTH,46 
1040 DATA FROEHLICH,11,SCHMITT,43,KLEIN,65»MARSCH,19 
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Wir wollen versuchen, durch eine PrograirunbeSchreibung 
den Ablauf zumindest etwas deutlich werden zu lassen; 
dazu bedarf es allerdings einer ausführlichen Be- 


Schreibung 


Sätze 

Inhalt 

10-1 1 

Bemerkungen 

20 

Sprung zum Beginn des Programms 

30 

Unterprogramm fürs Unterbrechen 

40 

Unterprogramm zum Vertauschen, falls 
in einem der Arrays eine falsche Reihen¬ 
folge festgestellt wurde. 

50 

Unterprogramm für die Erzeugung einer 
gesamten Bildschirmzeile aus Sternchen. 
Wird im folgenden als Strich bezeichnet. 

60 

Unterprogramm für die Überschrift des 
Bildschirms, benötigt den Strich aus 

Zeile 50 als Rahmen. 

70-90 

Unterprogramm für den Ausdruck. 

Die Anzahl der ausgegebenen Zeilen wird 
durch Z gezählt, nach jeweils 5 Zeilen 
(M=5) und nach der letzten Zeile wird 
das Unterprogramm in Zeile 90 angesprun¬ 
gen. Dies leistet die Darstellung des 
Strichs, das Warten und das Neuanzeigen 
der Überschrift durch Sprung zu den je¬ 
weiligen Unterprogrammen. 

100-110 

Unterprogramm für den Vergleich des zu 
sortierenden Arrays Y^. 

120 

Unterprogramm für den Ausdruck erste bzw. 
zweite Runde. Es benötigt Unterprogramm 

60 für die Neuerzeugung der Überschrift. 
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Sätze 

Inhalt 



200 

Beginn des Hauptprogramms 

210-230 

"Initialisierung" - es müssen 4 Arrays 
dimensioniert werden, damit die Sub¬ 
routinen 40 und 100 in dieser allge¬ 
meinen Form verwendet werden können. 

240 

Einlesen der Daten 

250 

Der Wert 1 für R muß an das Unterpro¬ 
gramm 120 übergeben werden, das die 

Meldung über die Runde ausgibt. Danach 
müssen die Arrays N0 und A0 an die Sub- 
routinenarrays Y0 und X0 übergeben werden. 
Y$ wird sortiert, X0 mitgeführt. 

Uprog 100 leistet die Vergleiche inner¬ 
halb des Y0-Arrays und ruft seinerseits 
bei Bedarf Uprog 40 zum Vertauschen auf. 

260 

Die umgeordneten Listen müssen an die Ur- 
sprungsarrays übergeben werden. Danach 
wird wieder Uprog 60 für die Überschrift 
aufgerufen und dann Uprog 70 für den Aus¬ 
druck der Liste (das seinerseits Uprog 90 
aufruft, das wiederum Uprog 50, Uprog 30 
und Uprog 60 aufruft, welches ebenfalls 
Uprog 50 aufruft - alles klar?) 

270 

Ähnlich wie in 250 müssen die Werte für 

R an das Unterprogramm 120 und die Array- 
werte A0 und N0 an das Unterprogramm 100 
übergeben werden, das für das Sortieren 
(mit Hilfe von Uprog 40) zuständig ist. 

280 

Entspricht Zeile 260: Die sortierten Werte 
werden wieder ans Hauptprogramm übergeben 
und es folgt der Ausdruck. 
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Sätze 

Inhalt 

290 

Mit einem entsprechenden Bildschirm¬ 
hinweis endet das Programm 

1000-1040 

Spieldaten in DATA-Zeilen 


Wenn ein Progranun so aufgebaut ist, ist es ohne Pro¬ 
grammbeschreibung recht schwierig, die Arbeitsweise 
zu verstehen. Spätestens auf der vierten GOSUB-Ebene 
weiß man nur noch selten, von welcher Zeile aus der 
Aufruf erfolgte, wenn man das Programm nicht gerade 
selbst geschrieben hat, und zwar am Tag vorher. 

Zwar ist die Wiederholung von Anweisungsfolgen durh die 
große Anzahl von Unterprogrammen weitgehend vermieden, 
aber es wurden auch zusätzliche Befehle notwendig, 
nämlich für die Übergabe von Variablenwerten. Außerdem 
erforderte diese Art der Programmierung die Dimensio¬ 
nierung von 2 zusätzlichen Arrays. Falls N nicht gerade 
nur 20 beträgt, macht sich diese "Verschwendung" sehr 
stark am Platzbedarf bemerkbar. 

Die zweite Version benutzt die Unterprogramme 30 
(Warten), 40 (Vertauschen), 50 (Strich) und 70 (Aus¬ 
druck) . Alle anderen wurden gestrichen, die entspre¬ 
chenden Anweisungen verlagert. Da auch 90 gestrichen 
wurde, mußte die Ausdrucksubroutine etwas abgeändert 
werden. Sie ist jetzt die Einzige, die andere Unterpro¬ 
gramme aufruft. 
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Durch Wahl der Zeilennummern wurde versucht, die 
Parallelen zur vorigen Version aufzuzeigen und die 
Unterschiede deutlich werden zu lassen. 

Das Unterprogramm 60 für die Überschrift konnte durch 
die wesentliche bessere Lösung in Zeile 245 (mit Hilfe 
des Bildschirmfensters) ersetzt werden: 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB < 9) : PRINT "R.PRUST / W.L^OSS 1984": 
PRINT 

10 REM 3636X3^ DEMONSTRATIONSBEISPIEL XXX 

11 REM XX FUER UNTERPROGRAMMTECHNIK XX 
20 GOTO 200 

30 L^TAB 22: CALL - 868: HTAB 6: INVERSE : PRINT "DRUECKEN 
SIE IRGENDEINE TASTE": NORMAL : POKE - 16368,0: WAIT 
- 16384,128: POKE - 16368,0: HOME : RETURN 
40 H^ = N^<I);N^<I) = N^<J):N^<J) = H^:H^ = A^<I):A^<I) 

= A^<J):A^(J) = H^: RETURN 

50 FOR Q = 1 TO 40; PRINT "X";; NEXT : PRINT ; RETURN 

70 HOME :Z = 0: FOR I = 1 TO N; PRINT N^<I),A^<I);Z = 

Z+ 1; IFZ=MORI=N THEN Z = 0: PRINT ; GOSUB 50: 

60SUB 30; REM STRICH UND NARTEN 

80 NEXT I: RETURN 
200 REM BEGINN DES PROGRAMMS 
210 N = 20 ? 

220 TEXT : HOME ; DIM N^(N),A^(N) 

230 M = 5 

240 FOR I = 1 TO N: READ N^<I),A^<I): NEXT 

245 GOSUB 50: HTAB 6: PRINT "SORTI ERPROGRA 

M M"; PRINT ; GOSUB 50; POKE 34,6; HOME 

250 L'TAB 12; HTAB 17; INL^ERSE ; PRINT "1. RUNDE": NORMAL 

253 FOR I = 1 TO N - 1; FOR J = I + 1 TO N; IF N^(I) > 

N^<J) THEN GOSUB 40; REM L^ERTAUSCHUNG 
256 NEXT J,I 

260 GOSUB 70; REM AUSDRUCK DER SORTIERTEN LISTE 

270 'v^TAB 12; HTAB 17: INUERSE ; PRINT "2. RUNDE"; NORMAL 

273 FOR I = 1 TO N - 1; FOR J = I + 1 TO N; IF A^CI) > 

A^<J) THEN GOSUB 40; REM L»ERTAUSCHUNG 
276 NEXT J,I 

280 GOSUB 70; REM AUSDRUCK DER SORTIERTEN LISTE 

290 L^TAB 12; HTAB 15: INL»ERSE ; PRINT "E N D E" ; NORMAL 

: POKE 34,0; PRINT : END 

1000 DATA MUELLER,40,FRIEDRICHS,23,MEIER,17,MAI ER,52 

10 10 DATA KOCH,45,SCHUHMANN,34,NEUHAUS,21,MI ES,57 

1020 DATA LUDWIG,14,HAUSMANN,33,ADAM,41,GRIMM,28 
10 30 DATA OBERMANN,62,GROTE,24,NAGEL,58,MUTH,46 
1040 DATA FROEHLICH, 11,SCHMITT,43,KLEIN,65»MARSCH,19 
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Wir meinen, daß hier auf eine Prograrambeschreibung 
verzichtet werden kann. Nachdem die erste Version 
vorgestellt wurde, wird diese sicher auch verstanden. 
Es handelt sich um eine "gemäßigte" Fassung, die ins¬ 
besondere keine spezielle Variablenübergabe an Sub¬ 
routinen benötigt. 

Die dritte Version kommt ganz ohne Unterprogramm aus, 
wir halten allerdings auch dies nicht für die beste 
Lösung. 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) : PRINT " R. PRUST / W.L>OSS 1984": 
PRINT 

10 REM DEMONSTRATIONSBEISPIEL 

11 REM 5^5^ FUER UNTERPROGRAMMTECHNIK 
200 REM BEGINN DES PROGRAMMS 

210 N = 20 

220 TEXT : HOME ; DIM N^<N),A^<N) 

230 M = 5 

240 FOR I = 1 TO N: READ N^(I),A^(I): NEXT 

245 FOR Q = 1 TO 40: PRINT NEXT : PRINT : HTAB 6: 

PRINT "S 0 R T I E R P R? 0 G R A M M": PRINT : FOR Q = 

1 TO 40: PRINT "5^";: NEXT : PRINT : POKE 34,6: HOME 

250 L»TAB 12: HTAB 17: INL»ERSE : PRINT "1. RUNDE": NORMAL 


253 FOR I = 1 TO N - 1: FOR J = I + 1 TO N: IF N^(I) > 

N^<J) THEN H^ = N^<I):N^<I) = N^<J):N^<J) = H^:H^ = A^<I):A^(I) 
= A$<J):A^<J) = m 
256 NEXT J,I 

260 HOME :2 = 0: FOR I = 1 TO N: PRINT N$<I),A^<I):2 = 

2 + 1 

263 IF 2 = M OR I = N THEN 2=0: PRINT : FOR Q = 1 TO 
40: PRINT "X";: NEXT : PRINT : LTAB 22: CALL - 868: HTAB 
6: INUERSE : PRINT "DRUECKEN SIE IRGENDEINE TASTE": NORMAL 
: POKE - 16368,0: NAIT - 16384,128: POKE - 16368,0: 

HOME 

266 NEXT I 

270 UTAB 12: HTAB 17: INUERSE : PRINT "2. RUNDE": NORMAL 

273 FOR I = 1 TO N - 1: FOR J = I + 1 TO N: IF A^<I) > 

A^CJ) THEN H^ = N^<I):N^<I) = N^<J):N^<J) = H^:H^ = A^<I):A^<I) 
= A$<J):A^(J) = H^ 

276 NEXT J,I 
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2S0 HOME :2 = 0: FOR I = 1 TO N: PRINT N^<I),A^<I):2 = 

2 + 1 

283 IF 2 = M OR I = N THEN 2=0: PRINT : FOR Q = 1 TO 
40: PRINT "3^";; NEXT : PRINT : ^JTAB 22; CALL - 868: HTAB 
6; INUERSE : PRINT “DRUECKEN SIE IRGENDEINE TASTE“: NORMAL 
: POKE - 16368,0; NAIT - 16384,128; POKE - 16368,0; 

HOME 

286 NEXT I 

290 UTAB 12; HTAB 15; INL^ERSE ; PRINT “E N D E" : NORMAL 
: POKE 34,0; PRINT ; END 

MUELLER,40,FRIEDRICHS,23,MEIER,17,MAIER,52 
KOCH,45,SCHUHMANN,34,NEUHAUS,21,MIES,57 
LUDNIG,14,HAUSMANN,33,ADAM,41,GRIMM,28 
OBERMANN,62,GROTE,24,NAGEL,58,MUTH,46 
FROEHLICH,11,SCHMITT,43,KLEIN,65,MARSCH,19 


1000 

DATA 

10 10 

DATA 

1020 

DATA 

1030 

DATA 

1040 

DATA 


Wieder wurde durch die Wahl der Zeilennummern ver¬ 
sucht, Vergleiche zwischen den 3 Versionen zu er¬ 
leichtern. 


Prinzipiell sind sicher Programme, die mehr der Ver¬ 
sion 2 ähneln, den anderen Typen vorzuziehen. 

Auch in unserem kleinen Beispiel stellt sich der Typ 
2 als optimal hinsichtlich des Platzbedarfs dar (ohne 
REM-Statements im Hauptprogramm wäre der Unterschied 
noch deutlicher ausgefallen). 

Natürlich sind die Differenzen in einem so einfachen 
Beispiel nicht besonders groß, aber es bestehen welche, 
wie folgende Tabelle zeigt: 


Adresse für: 

Speicher¬ 

stellen 

V 

e r s i 

o n e n 

1 

2 

3 

Programrenfang 

103/104 

2049 

2049 

2049 

Programmende 

105/106 

3123 

3105 

3173 

Speicherplatz 
in byte 

- 

1075 

1057 

1125 

Ende benutzter 
Speicher 

109/110 

3459 

3294 

3362 

Speicherplatz 
für Variable 

- 

336 

189 

189 

Gesamtplatz 

- 

1411 

1246 

1314 
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Man sieht, daß bei Version 1 trotz der vielen Unter¬ 
programme mehr Platz benötigt wird als bei den beiden 
anderen; dies liegt vor allem an dem benötigten Platz 
für die Variablen. Aber auch das Programm allein ist 
etwas länger als die Version 2, da die Einsparungen 
durch Unterprogramme durch die aufwendige Variablen¬ 
übergabe kompensiert werden. Bei längeren Unterpro¬ 
grammen, die häufiger angesprungen werden, ist die Er¬ 
sparnis natürlich größer. Gelegentlich stößt man bei 
sehr großen Programmen an die Kapazitätsgrenzen des 
APPLE, wenn man nicht eine so ausgeprägte Unterpro¬ 
grammtechnik verwendet. 

Doch sollten diese Beispiele vor allem auch deutlich 
machen, daß das Verständnis des Programmablaufs we¬ 
sentlich vom Programmierstil abhängt. 
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5.3 Menütechnik 


Viele Programme erfüllen nicht nur eine Aufgabe, 
sondern mehrere, und zwar nacheinander oder wahl¬ 
weise. Für den zweiten Fall muß das Programm dem 
Benutzer zunächst einmal seine Möglichkeiten vor¬ 
stellen, d.h. eine Übersicht über die gelösten Pro¬ 
blembereiche. So kann etwa ein Textverarbeitungspro 
gramm neue Texte speichern, alte verändern oder er¬ 
weitern. Diese Auswahlmöglichkeiten oder die ent¬ 
sprechende Bildschirmanzeige nennt man Menü. 

Dabei handelt es sich also um die "Speisekarte" 
des Rechners. Auch der Catalog einer Diskette ist 
im Grunde nichts anderes, doch erwartet man von 
einem richtigen Menü eine ansprechende Gestaltung 
und eine einfache Methode der Auswahl. Je nach Wahl 
des Benutzers wird nun ein anderer Programmteil an¬ 
gesprungen. Dabei benötigt man also bedingte Sprung 
anweisungen. Außer der schon bekannten IF...THEN- 
Anweisung kennt APPLESOFT-BASIC noch zwei weitere 
bedingte Sprunganweisungen, eine davon mit "automa¬ 
tischer Rückkehr" durch RETURN. 

Die Anweisungen lauten allgemein: 


ON 

variable 

GOTO nr1, nr2, nr3, ... 

ON 

variable 

GOSUB nr1, nr2, nr3, ... 
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Der Unterschied liegt nur in der Rückkehr nach ON... 
GOSUB aufgrund des Befehls RETURN (genau wie beim 
unbedingten GOSUB), die nach ON...GOTO nicht erfolgt. 
Der Befehl 


ON K GOTO 100, 110, 120, 150 


hat unterschiedliche Auswirkungen bei unterschied¬ 
lichen Werten von K. Zunächst ist zu sagen, daß even¬ 
tuell aufgetretene Nachkommasteilen des K-Wertes ein¬ 
fach abgeschnitten werden. Hat K nach den Wert 1, so 
erfolgt ein Sprung zu Zeile 100, also in die erste 
hinter GOTO stehende Zeilennuiraner; für K=2 wird zu 
Zeile 110 gesprungen, für K=3 zu Zeile 120, für K=4 
zu Zeile 150. Für alle Werte von K kleiner als 1 oder 
größer gleich 5 erfolgt kein Sprung; es wird der 
nächste Befehl bearbeitet, der aber auch in derselben 
Zeile folgen kann. Hier liegt also ein wesentlicher 
Unterschied zum IF...THEN-Befehl. 


Für Programmierer, die möglichst 
viele Befehle in eine Zeile schrei¬ 
ben wollen, da ja jede Zeilennummer 
Speicherplatz kostet, sei hier ein 
kleiner Trick eingeschoben: 

Wen es ärgert, daß etwa hinter dem 
Befehl IF A=1 THEN 50 
keine weiteren Befehle mehr in der 
Zeile folgen können, kann stattdessen 
die Anweisung ON A GOTO 50 
verwenden. Für A=1 erfolgt der ge¬ 
wünschte Sprung , falls A=^1 ist, wer¬ 
den die nachfolgenden Anweisungen 
derselben Zeile bearbeitet. _ 
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Für ON...GOSUB gilt genau das gleiche; 
nach der Bearbeitung des Unterprograimns folgt der 
Rücksprung zu dem folgenden Befehl - gleich ob 
er in derselben oder in der nachfolgenden Zeile 
steht. 

In einem einfachen Anwendungsbeispiel soll verdeut¬ 
licht werden, was unter Menütechnik verstanden wird. 
Es handelt sich um die Bildschirmausgabe der Zahlen 
1 bis 16. Das Programm zeigt eine 4«4 Matrix, die 
jeweils die Zahlen 1 bis 4, 5 bis 8, 9 bis 12 und 
13 bis 16 in einer Zeile ausgibt. Dies kann auf 4 
verschiedene Arten geschehen; in der üblichen Weise, 
d.h. 1 2 3 4 in der 1. Zeile, 5 6 7 8 in der zweiten 
usw.; in "gespiegelter" Form, d.h. 4321 in der 
1. Zeile, 8 7 6 5 in der zweiten usw.; in der norma¬ 
len Weise mit Hervorhebung der Hauptdiagonalen und in 
der normalen Weise mit Hervorhebung der Nebendiago¬ 
nalen. Das Menü bietet ^Iso vier Gänge; 

X * 

X DARSTELLUNG EINER 4X4-MATRIX X 
X * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


NORMALDARSTELLUNG..1 

SPIEGELMATRIX.2 

HAUPTDIAGONALE.3 

NEBENDIAGONALE.4 

EINGABE <5-ENDE) .. 


WAEHLEN SIE DURCH EINGABE DER ZIFFER ! 
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Nach Eingabe einer Zahl zwischen 1 und 5 erfolgt 
die entsprechende Bildschirmanzeige aufgrund des 
folgenden Programms: 

3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS“ 

4 PRINT ; PRINT ; HTAB (9): PRINT "R.PRUST / N.UOSS 1984"; 
PRINT 

10 DIM Z<4,4),Z^<4,4) 

20 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
30 FOR I = 1 TO 4; FOR J = 1 TO 4; READ Z<I,J): NEXT : 

NEXT 

40 FOR I = 1 TO 4; FOR J = 1 TO 4:Z^(I,J) = STR^ <Z(I,J)): 

IF Z<I,J) < 10 THEN Z^<I,J) =•••• + Z^<I,J) 

50 NEXT J,I 

60 HOME ; HTAB 4: FOR Q = 1 TO 34: PRINT "X";: NEXT : 

PRINT ; HTAB 4; PRINT " : HTAB 37: PRINT 

70 HTAB 4; PRINT "3^";; HTAB 7: PRINT "DARSTELLUNG EINER 

4)(4-MATRIX" ; : HTAB 37; PRINT 

80 HTAB 4; PRJNT "X";: HTAB 37; PRINT "X"; HTAB 4; FOR 
I = 1 TO 34; PRINT "X";; NEXT ; POKE 34,6 

100 HOME : UTAB 10; HTAB 11; PRINT "NORMALDARSTELLUNG..1"; 

PRINT ; HTAB 11; PRINT "SPIEGELMATRIX.2"; PRINT ; 

HTAB 11; PRINT "HAUPTDIAGONALE.3": PRINT ; HTAB 11; 

PRINT "NEBENDIAGONALE.4": PRINT 

110 L»TAB 22; HTAB 3; INL^ERSE ; PRINT "NAEHLEN SIE DURCH 
EINGABE DER ZIFFER !";; NORMAL 

120 L»TAB 18: HTAB 11; INPUT "EINGABE (5-ENDE) ..";X^;X 
= UAL <X$> j 

130 FOR I=1T05;IFX< >I THEN NEXT ; UTAB 18; 

HTAB 30; INUERSE ; PRINT "FEHLER";; NORMAL ; FOR Q = 1 
TO 1500; NEXT ; HTAB 30; CALL - 868; GOTO 120 
140 ON X GOTO 500,520,540,570,230 

200 UTAB 23; HTAB 6; INUERSE ; PRINT "DRUECKEN SIE IRGENDEINE 

TASTE"; NORMAL ; POKE - 16368,0 

210 GET A^; IF A^ = "" THEN 210 

220 POKE - 16368,0: GOTO 100 

230 POKE 34,0: CALL - 958; END 

500 REM AUSDRUCK DER MATRIX 

510 HOME ; UTAB 10; FOR I = 1 TO 4: FOR J = 1 TO 4; HTAB 
<6 X J + 5): PRINT Z^<I,J);: NEXT ; PRINT ; PRINT : NEXT 
: GOTO 200 

520 REM AUSDRUCK DER GESPIEGELTEN MATRIX 

530 HOME ; UTAB 10; FOR I = 1 TO 4; FOR J = 4 TO 1 STEP 
- 1: HTAB <35 - 6 X J): PRINT Z^<I,J);: NEXT ; PRINT ; 

PRINT : NEXT ; GOTO 200 


540 

REM 

HERVORHEBUNG DER 

HAUPTDIAGONALE 



550 

HOME : 

UTAB 10; 

FOR I = 

= 1 TO 4: 

FOR J = 

1 TO 4; 

HTAB 

<6 X 

J + 5) 

; IF I = 

J THEN 

INVERSE 




560 

PRINT 

Z^d , J) ; ; 

NORMAL 

; NEXT ; 

PRINT ; 

PRINT ; 

NEXT 

; GOTO 200 







570 

REM 

HERVORHEBUNG DER 

NEBENDIAGONALE 



580 

HOME ; 

VTAB 10; 

FOR I = 

= 1 TO 4; 

FOR J = 

1 TO 4; 

HTAB 

<6 X 

J + 5) 

; IF <I + 

J) = 5 

THEN INVERSE 



590 

PRINT 

Z^<I,J);; 

NORMAL 

; NEXT : 

PRINT ; 

PRINT ; 

NEXT 


; GOTO 200 
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Das Programm soll kurz erläutert werden: 


Sätze 

Inhalt 

10 

Es werden zwei doppelt indizierte 

Felder für die 4)if4-Matrix dimensio¬ 
niert. 

20-30 

DATA-Zeile und Einlesen der Daten 

40-50 

Die Zahlen werden in Strings verwandelt, 
die einstelligen dabei durch ein Leer¬ 
zeichen ebenfalls auf zwei Stellen er¬ 
weitert. 

60-80 

Ausgabe einer Überschrift mit anschlie¬ 
ßendem Sperren des entsprechenden Bild¬ 
schirmbereichs . 

100-120 

Menü - Die Auswahl muß über eine der 
Ziffern 1 bis 5 erfolgen. 

130 

Für andere Werte erfolgt eine Fehlermel¬ 
dung und die Eingabe wird erneut ange¬ 
fordert durch Wiederholung der gesamten 
Zeile 120. 

140 

Verzweigung durch ON...GOTO. 

200-220 

Bedingte Warteschleifen, um dem Benutzer 
die Betrachtung des Bildschirmausdrucks 
zu ermöglichen. 

230 

Bei der Eingabe 5 für "Ende des Programms" 
erfolgt die Aufhebung des Textfensters, 
die Bildschirmanzeige 

"WÄHLEN SIE DURCH EINGABE DER ZIFFER!" 
wird gelöscht und das Programm beendet 
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Sätze 

Inhalt 

500-510 

Die Zahlen 1 bis 16 werden in der 
üblichen Weise einer 4¥4-Matrix ausge- 
geben mit Hilfe eines berechneten HTAB- 
Wertes. Für die Ausgabe werden die 
Strings gewählt, um die rechtsbün¬ 

dige Ausgabe zu sichern. Danach erfolgt 
der Sprung zur bedingten Warteschleife 
in Zeile 200. 

520-530 

Die Ausgabe erfolgt jeweils in den ein¬ 
zelnen Zeilen in umgekehrter Reihen¬ 
folge; deshalb hat nun die J-Schleife, 
die den Index für die Spalte liefert, 
negative Schrittweite. Folgt Sprung in 
Zeile 200. 

540-560 

In der üblichen Matrixform werden die 
Elemente der Hauptdiagonalen durch 
inverse Bildschirmausgabe gekennzeich¬ 
net. 

510-590 

Die Elemente der Nebendiagonale werden 
durch inverse Ausgabe hervorgehoben. 
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Die Auswahl aus dem Menü erfolgte in diesem Bei¬ 
spiel mit Hilfe der angegebenen Ziffern 1 bis 5. 

Die Eingabevariable ist X$, damit versehentlich ein¬ 
gegebene Buchstaben nicht die Rechnermeldung 
7REENTER verursachen^ die die Bildschirmaufteilung 
stören würde. Durch die VAL-Funktion werden solche 
Eingaben zu einem Wert von Null umgewandelt. Ein 
solcher Wert von X führt über die Zeile 130 zu einer 
Fehlermeldung/ die in die übrige Bildschirmanzeige 
eingepaßt ist. 

Die Verzweigung erfolgt über das ON...GOTO-Statement, 
stattdessen hätte auch der ON...GOSUB-Befehl gewählt 
werden können, da alle 4 Programmsegmente in den 
Zeilen 500 bis 590 durch die Sprunganweisung GOTO 200 
beendet werden, d.h. nach den jeweiligen Anzeigen 
wird die Zeile hinter der Verzweigung bearbeitet. 

Dies wäre bei RETURN ebenfalls geschehen. 

Bei der zweiten Form einer Menüauswahl wird die Aus¬ 
wahl über die Eingabe von Buchstaben erreicht. Zuläs¬ 
sig sind die Buchstaben A bis E, die durch Zeile 40 
in ein Stringarray B^ eingelesen werden aus der DATA- 
Zeile 600. Der zugehörige Arrayindex liefert gleich¬ 
zeitig die numerische Variable, die für die Verzwei¬ 
gung durch ON...GOTO erforderlich ist. 

Die Bildschirmanzeige des Menüs ist entsprechend ge¬ 
ändert (Zeilen 100 bis 120). 


216 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT ; HTAB (9): PRINT "R.PRUST / N.UOSS 1984": 
PRINT 

10 DIM Z(4,4),2^<4,4),B^<5) 

20 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
30 FÜR I = 1 TO 4: FOR J = 1 TO 4; READ Z<I,J); NEXT : 

NEXT 

40 FOR I = 1 TO 5; READ B^<I); NEXT 

50 FOR I = 1 TO 4: FOR J = 1 TO 4:Z^<I,J) = STR^ <Z<I,J)): 

IF Z<I,J) < 10 THEN Z^<I,J) = " " + Z$<I,J) 

60 NEXT J,I 

70 HOME : HTAB 4: FOR Q = 1 TO 34: PRINT "X";; NEXT : 

PRINT : HTAB 4: PRINT HTAB 37; PRINT ")(" 

80 HTAB 4; PRINT HTAB 7; PRINT "DARSTELLUNG EINER 

4)^4-MATRIX" ; : HTAB 37; PRINT "^" 

90 HTAB 4: PRINT HTAB 37; PRINT " " ; HTAB 4; FOR 

I = 1 TO 34: PRINT "5^";; NEXT : POKE 34,6 

100 HOME ; L>TAB 10; HTAB 11; PRINT "NORMALDARSTELLUNG. .A" ; 

PRINT ; HTAB 11; PRINT "SPIEGELMATRIX.B"; PRINT : 

HTAB 11; PRINT "HAUPTDIAGONALE.C"; PRINT 

110 HTAB 11: PRINT "NEBENDIAGONALE.D": PRINT : HTAB 

11; PRINT "ENDE DES PROGRAMMS.E" 

120 L»TAB 20: HTAB 16; IN^v^ERSE : PRINT "WAEHLEN SIE": PRINT 
; HTAB 6; NORMAL ; PRINT "DURCH EINGABE DER BUCHSTABEN 

I i< ■ 

130 POKE - 16368,0: GET X*: POKE - 16368,0 
140 FOR I = 1 TO 5: IF X$ < > B$(I) THEN NEXT I: VTAB 
18: HTAB 32: INUERSE : PRINT “FEHLER“;: NORHAL : FOR Q 
= 1 TO 1500: NEXT Q: HTAB 32: CALL - 868: GOTO 120 
150 POKE 37,(6 +2*1): PRINT : POKE 36,29: FLASH : PRINT 
B*<I): FOR Q = 1 TO 1500,: NEXT : NORMAL 
160 ON I GOTO 500,520,540,570,230 

200 L>TAB 23: HTAB 6: INUERSE : PRINT “DRUECKEN SIE IRGENDEINE 
TASTE“: NORMAL : POKE - 16368,0 
210 GET A$: IF A* = "" THEN 210 
220 POKE - 16368,0: GOTO 100 

230 POKE 34,0: POKE 37,16: PRINT : POKE 36,29: PRINT ”E“: 

CALL - 958: END 

500 REM AUSDRUCK DER MATRIX 

510 HOME : (^TAB 10: FOR I = 1 TO 4: FOR J = 1 TO 4: HTAB 
(6 * J + 5): PRINT 2*<I,J);: NEXT : PRINT : PRINT : NEXT 
: GOTO 200 

520 REM AUSDRUCK DER GESPIEGELTEN MATRIX 

530 HOME : UTAB 10: FOR I = 1 TO 4: FOR J = 4 TO 1 STEP 
- 1: HTAB <35 - 6 * J): PRINT Z*<I,J>;: NEXT : PRINT : 

PRINT : NEXT : GOTO 200 


540 

REM 

HERVORHEBUNG DER 

HAUPTDIAGONALE 


550 

HOME ; 

VTAB 10; 

FOR I = 

= 1 TO 4; 

FOR J = 

1 TO 4; HTAB 

<6 X 

J + 5) 

: IF I = 

J THEN 

INVERSE 



560 

PRINT 

2^<I,J);; 

NORMAL 

; NEXT ; 

PRINT ; 

PRINT ; NEXT 

; GOTO 200 






570 

REM 

HERVORHEBUNG DER 

NEBENDIAGONALE 


580 

HOME : 

VTAB 10; 

FOR I = 

= 1 TO 4; 

FOR J = 

1 TO 4; HTAB 

<6 X 

J + 5) 

:IF<I+ 

J) = 5 

THEN INVERSE 


590 

PRINT 

Z^(I,J);; 

NORMAL 

; NEXT ; 

PRINT ; 

PRINT : NEXT 


: GOTO 200 

600 DATA A,B,C,D,E 
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Die Eingabe erfolgt nun über GET X$ (Zeile 130), 
unzulässige Eingaben werden über den Vergleich von 
X0 und B0(I) zurückgewiesen bei entsprechender Mel¬ 
dung. Diese Zeile 140 ist etwas verschieden von der 
Zeile 130 des vorigen Programms, Zeile 150 ist etwas 
völlig Neues; 

Wenn in der Schleife in der Zeile 140 der Index des 
richtig ausgewählten Buchstabens bestimmt worden ist, 
wird der Cursor auf den entsprechenden Buchstaben 
des Menüs positioniert durch die zwei POKE-Befehle 
für die Speicherstellen 37 und 36 und der Buchstabe 
beginnt zu blinken. Nach einer leeren Schleife zum 
Warten erfolgt dann die Verzweigung durch Zeile 160. 
Das übrige Programm ist identisch mit der ersten 
Version. 

Eine dritte Version des Programms unterscheidet sich 
wiederum nur durch die Art der Auswahl von den zwei 
vorhergehenden, also nur in den Zeilen 100 bis 150, 
insbesondere durch die Zeilen 130 bis 140, die die 
Bestimmung des I-Wertes für die Verzweigung enthalten 
Durch die P-Schleife in Zeile 130 wandert der Cursor 
links neben dem Menü von Zeile zu Zeile, immer wieder 
bei der ersten Auswahlmöglichkeit beginnend. 

Dies geschieht solange, bis irgendeine Taste gedrückt 
wird. Die Prüfung der Speicherstelle -16384 mußte des 
halb in die Schleife aufgenommen werden. 

Aus der Position P, an der der Cursor sich zu diesem 
Zeitpunkt befindet, wird dann in Zeile 140 der ent¬ 
sprechende I-Wert berechnet. 
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3 HOME ; HTAB <9); PRINT “APPLE-TIPS UND TRICKS“ 

4 PRINT : PRINT : HTAB <9): PRINT “R.PRUST / N.UOSS 1984"; 
PRINT 

10 DIM Z(4,4),Z^(4,4) 

20 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
30 FÜR I = 1 TO 4; FOR J = 1 TO 4; READ Z<I,J); NEXT : 

NEXT 

40 FOR I = 1 TO 4; FOR J = 1 TO 4:Z^<I,J) = STR^ <2<I,J)): 

IF 2<I,J> < 10 THEN Z^<I,J) = » '• + Z^<I,J> 

50 NEXT J,I 

60 HOME : HTAB 4; FOR Q = 1 TO 34: PRINT NEXT : 

PRINT : HTAB 4: PRINT “X“;: HTAB 37: PRINT “X" 

70 HTAB 4; PRINT “ “ ; : HTAB 7: PRINT “DARSTELLUNG EINER 
4X4-MATRIX“ ; : HTAB 37: PRINT “5^" 

80 HTAB 4; PRINT “3^“;; HTAB 37; PRINT “36“; HTAB 4; FOR 
I = 1 TO 34; PRINT “36“;; NEXT ; POKE 34,6 

100 HOME ; L>TAB 10: HTAB 11; PRINT “1. NORMALDARSTELLUNG"; 
PRINT : HTAB 11; PRINT “2. SPIEGELMATRIX“: PRINT : HTAB 
11: PRINT “3. HAUPTDIAGONALE": PRINT 

110 HTAB U: PRINT “4. NEBENDIAGONALE": PRINT : HTAB 11: 

PRINT "5. ENDE DES PROGRAMMS" 

120 UTAB 20: HTAB 16: INL»ERSE ; PRINT "NAEHLEN SIE“: PRINT 
: HTAB 4: NORMAL : PRINT "DURCH DRUECKEN IRGENDEINER TASTE 
!";: POKE - 16368,0 

130 FOR P = 10 TO 18 STEP 2; UTAB P; HTAB 2; INV^ERSE : 

PRINT " “;: FOR Q = 1 TO 750; NEXT Q; IF PEEK < - 16384) 

< 128 THEN HTAB 2; NORMAL : PRINT " "; NEXT P; GOTO 130 
140 I = P / 2 - 4; NORMAL : HTAB 2; PRINT “ " 

150 ON I GOTO 500,520 ,'540,570,230 

200 L>TAB 23; HTAB 6; IN^v^ERSE ; PRINT “DRUECKEN SIE IRGENDEINE 
TASTE“; NORMAL : POKE - 16368,0 
210 GET A^; IF A^ = "“ THEN 210 
220 POKE - 16368,0; GOTO 100 

230 POKE - 16368,0; POKE 34,0: CALL - 958; END 

500 REM AUSDRUCK DER MATRIX 

510 HOME ; UTAB 10; FOR I = 1 TO 4; FOR J = 1 TO 4; HTAB 

< 6 36 J + 5); PRINT Z^<I,J);; NEXT ; PRINT ; PRINT ; NEXT 
; GOTO 200 

520 REM AUSDRUCK DER GESPIEGELTEN MATRIX 

530 HOME : UTAB 10; FOR I = 1 TO 4; FOR J = 4 TO 1 STEP 
- 1: HTAB (35 - 6 36 J): PRINT Z^<I,J);: NEXT ; PRINT ; 

PRINT : NEXT : GOTO 200 


540 

REM 

HERL'ORHEBUNG DER 

HAUPTDIAGONALE 



550 

HOME ; 

L»TAB 10; 

FOR I = 

= 1 TO 4; 

FOR J = 

1 TO 4: 

HTAB 

<6 36 

J + 5) 

; IF I = 

J THEN 

INVERSE 




560 

PRINT 

Z$(I,J);; 

NORMAL 

; NEXT ; 

PRINT ; 

PRINT ; 

NEXT 

: GOTO 200 







570 

REM 

HERL'ORHEBUNG DER 

NEBENDIAGONALE 



580 

HOME ; 

L»TAB 10; 

FOR I = 

= 1 TO 4; 

FOR J = 

1 TO 4; 

HTAB 

<6 36 

J + 5) 

: IF (I + 

J) = 5 

THEN INVERSE 



590 

PRINT 

2^<I,J);: 

NORMAL 

; NEXT ; 

PRINT ; 

PRINT ; 

NEXT 


; GOTO 200 
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Eine Menüauswahl kann immer dann erfolgen, wenn ein 
Programm mehrere Aufgaben erfüllt - wahlweise oder 
nacheinander in beliebiger Reihenfolge. Für die Ge¬ 
staltung gibt es verschiedene Möglichkeiten, wie die 
drei Demonstrationsprogramme gezeigt haben. 

Sie können dem Leser vielleicht als Anregung dienen 
für die Entwicklung weiterer Formen einer Menüaus¬ 
wahl. 
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5.4 Mischen von Programmteilen 


Häufig benutzte Unterprogramme möchte man nicht immer 
wieder neu schreiben, sondern ohne großen Aufwand 
bei den aktuellen Programmieraufgaben verwenden. 

Eine Möglichkeit dazu bieten die sogenannten EXEC- - 
Dateien . Das sind sequentielle Textfiles, die Kom¬ 
mandos und Programmzeilen enthalten können. Ihre 
Erstellung ist etwas umständlich, deshalb sollen eini¬ 
ge einfache Beispiele zunächst das Vorgehen verdeut¬ 
lichen. 

Wenn man sigh über den Platzbedarf eines Programms in¬ 
formieren will, müssen eine ganze Reihe von Speicher¬ 
stellen abgefragt werden. Liegt der Sinn dieser Ab¬ 
fragen im Vergleich des erforderlichen Speicherplatzes 
mehrerer Programmversionen, wie etwa im Abschnitt 5.2 
demonstriert, so ist es etwas lästig, immer wieder 
dieselbe Befehlsfolge eingeben zu müssen. Man kann die¬ 
se Befehle auch in einer Textdatei abspeichern und dann 
durch das Kommando EXEC immer wieder abrufen. 

Das folgende Programm mit dem Namen MAKE SPEICHER 
leistet diese Abspeicherung. 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9); PRINT "R.PRUST / N.UOSS 1984" 
PRINT 

10 = CHR^ <4): REM CTRL-D FUER DISKETTENADRESSIERUNG 

15 = CHR^ (34): REM ANFUEHRUNGSSTRICHE 

20 PRINT D^;"OPEN SPEICHER" 

30 PRINT D^;"WRITE SPEICHER" 

40 PRINT "?";Q^;" 103: ";;PEEK< 103)+PEEK<104)X256" 

50 PRINT "?";Q^;"105: "; PEEKC 105)+PEEK< 106) 5(256" 

60 PRINT "?";Q^;"109: "; PEEK< 109)+PEEK< 1 10) 5(256" 

70 PRINT "?";Q^;"111; PEEK< 1 1 1)+PEEK< 1 12) 5(256" 

80 PRINT "?" ;Q^; " 1 15: " ; ; PEEK< 1 15)+PEEK< 1 16) 5(256" 

90 PRINT D^;"CLOSE" 

100 END 
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Wird es durch RUN gestartet, so wird ein se¬ 
quentielles Textfile mit dem Namen SPEICHER ge¬ 
öffnet zum Schreiben. Die PRINT-Befehle der Zeilen 
40 bis 80 bewirken dann keine Bildschirmanzeige, 
sondern die Abspeicherung auf der Diskette. Abge¬ 
speichert werden die in Anführungszeichen eingeschlos¬ 
senen Befehle. Es handelt sich wiederum um PRINT- 
Statements, und zwar liefert jede Befehlszeile eine 
Bildschirmanzeige über eine Speicheradresse und ihren 
Inhalt, dabei müssen für die Erstellung der Befehls¬ 
zeile die sonst üblichen Anführungszeichen durch die 
entsprechende CHR0-Funktion ersetzt werden, um Miß¬ 
verständnisse zu vermeiden. 

Nach Durchführung des Programms MAKE SPEICHER stehen 
die folgenden Zeilen im Textfile SPEICHER auf der 
Diskette: 


PRINT “103: 
PRINT "105: 
PRINT "109: 
PRINT "111: 
PRINT "115: 


" ;PEEK< 103) +PEEK< 104) 5^256 
" ;PEEK< 105) +PEEK< 106) )^256 
";PEEK<109)+PEEK(110 )^256 
";PEEK<111)+PEEK<112)X256 
" ;PEEK< 1 15) +PEEK< 1 16) 5^256 
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Nachdem nun irgendein Programm geladen worden ist, 
kann durch EXEC SPEICHER die Untersuchung des Platz¬ 
bedarfs erfolgen. Die Wirkung der Kommandos ist die¬ 
selbe, als wenn sie gerade über die Tastatur einge¬ 
geben worden wären. 

Das zweite Beispiel erstellt eine Textdatei DRUCK , 
die sowohl Kommandos als auch Programmzeilen enthält. 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB (9): PRINT "R.PRUST / W.k^OSS 1984": 
PRINT 

10 = CHR^ <4):Q^ = CHR^ <34) 

20 PRINT D^;"OPEN DRUCK" 

30 PRINT D^;"WRITE DRUCK" 

40 PRINT "3 HOME:HTAB(9):PRINT ";;"APPLE-TIPS UND TRICKS";Q^ 
50 PRINT "4 PRINT:PRINT:HTAB<9):PRINT ";"R.PRUST / 

N.^OSS 1984";Q^;":PRINT" 

60 PRINT "PRttl" 

70 PRINT "PRINT CHR^ <9);";;"80N"; 

80 PRINT " PRINT CHR^ <9);";;"10L"; 

90 PRINT "PRINT CHR^(9);";;"65R"; 

100 PRINT "PRINT CHR^<9),;" ;Q^; "65P" ;Q^ 

110 PRINT "LIST 3-" 

120 PRINT "PR#0" 

130 PRINT D^;"CLOSE DRUCK" 

140 END 


Durch die Zeilen 40 und 50 werden zwei Programm- 
zeilen mit den Nummern 3 und 4 in die Datei DRUCK 
geschrieben. Wieder müssen die Anführungsstriche 
der PRINT-Befehle durch CHR0(34) ersetzt werden. 
Die Zeilen 60 bis 120 erzeugen Kommandozeilen 
im Textfile, dessen Inhalt also aus zwei Programm¬ 
zeilen und einigen Druckerkommandos besteht: 
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3 HOME;HTAB<9):PRINT “APPLE-TIPS UND TRI 
CKS“ 

4 PRINT:PRINT:HTAB<9):PRINT "R.PRUST / W 
.L»OSS 1984":PRINT 

PR#1 

PRINT CHR^ <9);"80N" 

PRINT CHR^ <9);"10L“ 

PRINT CHR^<9);“65R” 

PRINT CHR^<9);“65P“ 

LIST 3- 
PR#0 


Wird diese Datei durch EXEC DRUCK aufgerufen, 
werden zunächst die Zeilen 3 und 4 dem vorher gela¬ 
denen Programm hinzugefügt; dabei wird nicht - 
wie bei RUN - das übrige Programm gelöscht. An¬ 
schließend werden die Druckereinstellungen vorge¬ 
nommen und das erweiterte Programm wird auf dem Druk- 
ker gelistet. 

Eine andere, etwas komfortablere Möglichkeit, kom¬ 
plette Programmlistings auf dem Drucker erstellen zu 
lassen und Zeilen zu einem vorhandenen Programm hin¬ 
zuzufügen, bietet MAKE LIST: 


1 GOTO 10 

2 PR« 1: PRINT CHR^ (9)j“80N”: PRINT CHR^ <9);”10L”: 
PRINT CHR^ <9);"65R“: PRINT CHR^ <9);”65P": LIST 3 - 

; PR« 0; END 

3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) : PRINT "R.PRUST / W.L>OSS 1984" 
PRINT 

10 D^ = CHR^ (4) 

20 PRINT D^;"OPEN LIST" 

30 PRINT D^;"NRITE LIST" 

40 LIST 2 - 4 
50 PRINT "RUN" 

60 PRINT "DEL 2,4" 

70 PRINT D^;"CLOSE LIST" 

80 TEXT ; END 
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Es wird ein Textfile LIST erzeugt mit folgendem 
Inhalt: 


2 PR« 1: PRINT CHR^ (9);"80N": PRINT 

CHR^ PRINT CHR^ 

<9);"65R": PRINT CHR^ <9);" 

65P”: LIST 3 - : PR# 0: END 

3 HOME : HTAB <9): PRINT "APPLE¬ 

TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT 

"R.PRUST / N.L^OSS 1984": PRINT 


RUN 

DEL 2,4 


Nach dem Kommando EXEC List werden dem im Arbeits¬ 
speicher vorhandenen Programm die Zeile 2 bis 4 
hinzugefügt; Voraussetzung ist, daß das ursprüngli¬ 
che Programm nur Zeilennummern enthält, die größer 
sind als 4. Dann wird durch RUN das erweiterte Pro¬ 
gramm gestartet, d.h. es wird Zeile 2 mit den Drucker 
anweisungen ausgeführt. Danach geht die Ablaufkontrol 
le wieder an LIST zurück, das als letzten Befehl 
das Löschen der Programmzeilen 2 bis 4 durchführt. 
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Falls also während der Prograininierarbeit ein Drucker- 
listing erforderlich ist, z.B. zur Fehlersuche, gibt 
man EXEC LIST ein; es wird ein Listing mit zwei 
zusätzlichen Zeilen durchgeführt und anschließend 
steht das Programm in der vorherigen Form für die 
weitere Bearbeitung im Arbeitsspeicher zur Verfügung. 

Eine weitere Möglichkeit, Textfiles nützlich einzu¬ 
setzen, besteht im Zusammenmischen von mehreren Pro¬ 
grammteilen, die schon bei früheren Programmierauf¬ 
gaben benötigt wurden. Es gibt einige Unterprogramme, 
deren Aufgabenstellung immer wieder auftaucht - genau 
wie das Drucken eine immer wieder erforderliche Ar¬ 
beit ist. Für solche häufig auftretenden Probleme lohnt 
es sich, ein Programm zu erstellen, das ein Textfile 
erzeugt mit den nötigen Programmzeilen, wobei die erste 
Zeilennummer des Unterprogramms jeweils beliebig ge¬ 
wählt werden kann. Das Vorgehen ist etwas umständlich, 
deshalb ist es bei wenig benötigten Subroutinen oft 
schneller, die entsprechenden Programmzeilen neu ein¬ 
zutippen. 

Immer wieder taucht das Problem des Sortierens eines 
Arrays bei gleichzeitgem Mitführen eines zweiten Arrays 
auf, und zwar für numerische Arrays und Stringarrays. 
Deshalb sei es als Demonstrationsbeispiel gewählt. 
Folgendes Hauptprogramm befinde sich im Arbeitsspeicher 
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3 HOME : HTAB (9); PRINT “APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINf "R.PRUST / W.UOSS 1984": 
PRINT 

10 REM EINBAU EINES UNTERPROGRAMMS 

20 N = 20:M = 5; TEXT : HOME : DIM N^<N),A^<N) 

30 GOTO 100 

40 L»TAB 22: CALL - 868: HTAB 6: INL'ERSE : PRINT "DRUECKEN 
SIE IRGENDEINE TASTE": NORMAL : POKE - 16368,0: WAIT 
- 16384,128: POKE - 16368,0: HOME : RETURN 
50 FOR Q = 1 TO 40: PRINT "X";: NEXT : PRINT : RETURN 

100 REM BEGINN DES PROGRAMMS 

110 FOR I = 1 TO N: READ N^(I),A^(I); NEXT 

120 GOSUB 200 

130 HOME :Z = 0: FOR I = 1 TON: PRINT N^<I),A^<I):2 = 

Z+ 1: IFZ=MORI=N THEN Z = 0: PRINT : GOSUB 50: 

GOSUB 40: REM STRICH UND WARTEN 

140 NEXT I 

150 L^TAB 12: HTAB 15: INVERSE : PRINT "E N D E" : NORMAL 
: POKE 34,0: PRINT : END 


Es handelt sich um ein Hauptprogramm mit zwei kleinen 
Unterprogrammen (Zeilen 40 bis 50 ), das Werte in zwei 
Stringarrays einliest; Die Strings des einen Arrays 
sollen nach dem Alphabet sortiert werden. Alle Umstel¬ 
lungen innerhalb des einen Arrays sollen bei dem zwei¬ 
ten entsprechend erfolgen. Zu diesem Zweck soll in 
Zeile 120 das Unterprogramm ab Zeile 200 dienen. 

Es ist auf Diskette vorhanden in der Form: 


10 FOR I = 1 TO N - 1: FOR J = I + 1 TO N: IF N^d) > 

N^<J) THEN H^ = N^<I):N^<I) = N»<J):N^<J) = H*;H^ = A^<I):A^<I) 
= A^<J):A^<J) = H^ 

20 NEXT J,I 
30 RETURN 
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Man hat nun erstens die Möglichkeit, die Zeilen mit 
anderen Zeilennummern neu einzutippen. Zweitens kann 
man mit Hilfe der ESC-Taste umnumerieren (siehe Kap. 6) . 
Oder man entschließt sich, einmal etwas mehr Arbeit 
zu investieren und dadurch diese Subroutine für die Zu¬ 
kunft mit beliebigen Zeilennummern verfügbar zu haben. 
Zunächst wird das Hauptprogramm auf Diskette gespei¬ 
chert. Dann tippt man das folgende Programm ein mit 
Namen MAKE SORTIEREN; 


3 HOME ; HTAB <9): PRINT “APPLE-TIPS UND TRICKS” 

4 PRINT ; PRINT : HTAB (9): PRINT "R.PRUST / W.OOSS 1984” 
PRINT 

10 REM ERSTELLUNG EINES UNTERPROGRAMMS 
20 REM MIT BELIEBIGER ZEILENNUMMER 
30 INPLIT “ERSTE ZEILENNUMMER ” ; ZN 
40 = CHR^ <4> 

50 PRINT D^;”OPEN SORTIEREN” 

60 PRINT D^;”DELETE SORTIEREN” 

70 PRINT D^;”OPEN SORTIEREN” 

80 PRINT D^;"WRITE SORTIEREN” 

90 PRINT ZN;” FOR I = 1 TO N - 1; FOR J = I + 1 TO N; 

IF N*<I) > N^<J) THEN H^ =f N^<I);N^<I) = N^(J);N^(J) = 
H^;H^ = A^<I):A^<I) = A^<J):A^<J) = H^”;ZN = ZN + 1 
100 PRINT ZN;“ NEXT J,I”:ZN = ZN + 1 
110 PRINT ZN;” RETURN” 

120 PRINT D^;”CLOSE SORTIEREN” 

130 END 
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Es fordert zunächst eine Eingabe für die erste Zei- 
lennuimner, die das Unterprograimn erhalten soll. 

Danach wird eine eventuell vorhandene alte Textdatei 
mit dem Namen SORTIEREN gelöscht und danach eine 
neue zum Schreiben eröffnet. Durch die PRINT-Befehle 
der Zeilen 90 bis 110 werden Programmzeilen in die 
Datei SORTIEREN geschrieben. Dabei wird die Variable 
ZN durch die aktuelle Zeilennummer ersetzt und durch 
ZN=ZN+1 für jede neue Programmzeile erhöht, so daß 
SORTIEREN folgenden Inhalt erhält: 

200 FOR I = 1 TO N - 1: FÜR J = I + 1 TO N: IF N^<I) > 

N^<J> THEN = N^<I):N^<I> = N$<J):N^<J) = = A^<I):A^<I) 

= A^(J):A$(J) = 

201 NEXT J,I 

202 RETURN 


Durch RUN bzw. RUN MAKE SORTIEREN (falls sich 
das Programm schon auf der Diskette befindet) wird 
die Erstellung des Textfiles SORTIEREN gestartet. 

Danach wird das Hauptprogramm wieder in den Arbeits¬ 
speicher geladen und durch das Kommando EXEC SORTIEREN 
um die Unterprogrammzeilen 200 bis 202 ergänzt. 
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Das Schreiben der Programme, die die Textdateien 
erzeugen, ist etwas mühsam, insbesondere wenn 
PRINT-Befehle in die Zeilen des Textfiles aufgenom¬ 
men werden sollen, da Anführungsstriche , die später 
im Textfile stehen sollen, im erzeugenden Programm 
durch CHR3(34) ersetzt werden müssen. Dies war schon 
den ersten beiden Beispielen dieses Abschnitts zu 
entnehmen. Ein sehr umfangreiches Beispiel für den 
Einsatz von EXEC-Dateien findet sich im Abschnitt 7.5. 

Man kann dies Verfahren auch einsetzen, um sich bei¬ 
spielsweise die Gestaltung eines Menus zu verein¬ 
fachen. Die erforderlichen Programmzeilen sind ja im¬ 
mer ähnlich aufgebaut, so daß sich die Verwendung eines 
"Programmzeilengenerators" unmittelbar anbietet. 

Der wesentliche Nachteil liegt im mehrfachen Abspei¬ 
chern und Laden/ man kann nicht durchgängig am Haupt¬ 
programm arbeiten; denn ohne vorheriges Sichern wird 
durch RUN MAKE SORTIEREN oder ein entsprechendes Kom¬ 
mando für andere Programmzeilengeneratoren das Haupt¬ 
programm zerstört. 

Allerdings kann man einen Teil dieser Aufgaben einer 
Textdatei übertragen. Dies wird an einem umfangreichen 
Beispiel, nämlich der Erstellung eines Druckerlisting, 
vorgeführt, das zugleich die Möglichkeiten und die 
Umständlichkeit der Gestaltung von EXEC-Dateien deut¬ 
lich macht. 
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Ausgangssituation sei ein Programm im Arbeitsspei¬ 
cher, das ganz oder teilweise gelistet werden soll, 
ohne daß der Benutzer Kommandos über die Tastatur 
abschicken will. EXEC LISTER ist das letzte Kom¬ 
mando, das einzutippen ist. Es ruft ein Textfile auf, 
das von dem folgenden Programm MAKE LISTER erzeugt 
wurde: 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.L'OSS 1984" 
PRINT 

10 = CHR^ (4):Q-^ = CHR^ <34) 

20 PRINT D^;”OPEN LISTER" 

30 PRINT D^;"DELETE LISTER" 

40 PRINT D^;“OPEN LISTER“ 

50 PRINT D^;”NRITE LISTER 

60 PRINT ”Y=PEEK< 175)+PEEK< 176) 5^256” 

70 PRINT "Q = PEEK <103) + PEEK (104) ^ 256:X1 = PEEK 
<Q + 2) + PEEK <Q + 3) 256“ 

80 PRINT "FOR Q=Q TO Y: 2 = PEEK (Q) + PEEK <Q + 1) 

X 256: IF PEEK (Z) + PEEK (Z + 1) ^ 256 < > 0 THEN Q 
= Z-1: NEXT Q" 


90 

PRINT " 

X2 = PEEK <Q+2) + 

PEEK (Q + 3) 

^ 256" 

100 

PRINT 

"2 1 = Xl:22 = X2," 



1 10 

PRINT 

"X = PEEK (115) + 

PEEK (116) 

256” 

120 

PRINT 

"T=INT(21/256):POKE 

X-4,T:P0KE X- 

5,21-TX256“ 

130 

PRINT 

"T=INT(22/256):POKE 

X-2,T:P0KE X- 

3,22-TX256" 

140 

PRINT 

“T=INT((X-6)/256) :POKE 1 16,T;P0KE 

1 15,X-6-TX-256 

150 

PRINT 

"EXEC LST” 



160 

PRINT 

CHR^ (4);"CL0SE LISTER" 


170 

END 
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Die Textdatei enthält nachstehende Befehlsfolge; 


Y=PEEK< 175) +PEEK( 176) )^256 

Q = PEEK <103) + PEEK (104) X 256!X1 = PEEK <Q + 2) 

+ PEEK <Q + 3) 256 

FÜR Q=Q TO Y; Z = PEEK < Q) + PEEK <Q + 1) 256; IF 

PEEK <Z) + PEEK <Z + 1) ^ 256 < > 0 THEN Q = Z-l; NEXT 

Q 

X2 = PEEK <Q+2) + PEEK <Q + 3) H 256 
ZI = Xl!Z2 = X2 

X = PEEK <115) + PEEK <116) X 256 
T=INT<2 1/256) ;POKE X-4,T;P0KE X-5 , Z 1-T3<256 
T=INT<Z2/256)iPOKE X-2,T;P0KE X-3,Z2-T^256 
T=INT<<X-6)/256);POKE 116,T;P0KE 115,X-6-TX256 
EXEC LST 


Mit Hilfe von PEEK- und POKE-Befehlen werden zunächst 
die größte und kleinste Zeilennummer des Programms 
ermittelt (Z2 und ZI). Dabei wird die kleinste Zeilen¬ 
nummer ZI an der 2. und 3. Speicherstelle hinter dem 
Programmanfang gefunden, der über die Adressen 103/104 
ermittelt wird. Jede Zeile ist in folgender Weise ab¬ 
gespeichert: die ersten 2 bytes enthalten die Adresse 
für die nächste Programmzeile (das niederwertige byte 
zuerst), die nächsten 2 bytes enthalten die Zeilennum¬ 
mer, danach wird der Text abgespeichert. Dies wird 
nun ausgenutzt, um die größte Zeilennummer Z2 zu be¬ 
stimmen. Mit Hilfe des Pointers zur nächsten Zeile 
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"springt" der Rechner schnell von Zeilennuimner 
zu Zeilennummer, bis der Pointer auf eine Speicher¬ 
stelle zeigt, die keine Adresse mehr enthält, son¬ 
dern zusammen mit der nachfolgenden einen Wert von 
Null enthält. An der so ermittelten Stelle Q be¬ 
ginnt somit die Abspeicherung für die letzte Zeile, 
d.h. an den Stellen Q+2 und Q+3 findet sich die größ¬ 
te Zeilennummer des Programms, Z2 kann also ermittelt 
werden. 

Damit diese Werte von ZI und Z2 im weiteren Ablauf 
nicht verlorengehen, werden sie unmittelbar unterhalb 
von HIMEM (Speicherstellen 115/116) gespeichert, und 
zwar niederwertiges und höherwertiges byte von ZI, 
dann niederwertiges und höherwertiges byte von Z2 mit 
wachsenden Speicheradressen. Anschließend wird HIMEM 
herabgesetzt, um die Werte zu schützen. 

Die letzte Anweisung des Textfiles LISTER ruft die 
EXEC-Datei LST auf. Aucli diese sollte schon vorher durch 
das folgende Programm MAKE LST erstellt worden sein: 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.UOSS 1984": 
PRINT 

10 REM ERSTELLUNG EINES EXEC'S 
20 REM FUER DRUCKERLISTINGS 
30 = CHR^ <4) 

40 PRINT D^;"OPEN LST" 

50 PRINT D^;"WRITE LST" 

60 PRINT "SAL>E ZN ISCHEN" 

70 PRINT "RUN EINGABE" 

80 PRINT "LOAD ZNISCHEN" 

90 PRINT "DELETE ZNISCHEN" 

100 PRINT "EXEC LSTR" 

110 PRINT D^;"CLOSE LST" 
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Das hierdurch 
Steuerung des 
beachten, daß 
letzte Befehl 
schlossen wird 
beginnt. 


erstellte Textfile überniimnt die 
gesamten übrigen Ablaufs. Man sollte 
ein EXEC-Befehl in einem Textfile der 
sein muß, da das erste Textfile ge- 
, bevor die Durchführung des zweiten 


LST enthält folgende Befehlsfolge: 


SAt'E ZN ISCHEN 
RUN EINGABE 
LOAD ZNISCHEN 
DELETE ZNISCHEN 
EXEC LSTR 


Zunächst wird das zu listende Programm auf der Dis¬ 
kette gesichert unter dem Namen ZWISCHEN , danach 
wird ein Programm EINGABE gestartet, das u.a. auch 
ein Textfile LSTR aus Programmzeilen erzeugt. Nun 
wird das ursprüngliche Programm wieder geladen und 
die temporäre Kopie wird gelöscht, danach wird die 
Textdatei LSTR aufgerufen, die folgende Befehle 
enthält: 


122 PR#1:PRINT CHR^( 9) ; " 80N'' 

123 PRINT CHR^<9) ;" 10L" 

124 PRINT CHR^<9);"^bR" 

125 PRINT CHR^(9);"65P” 

126 LIST 20-40; PR»0; END 
RUN 122 

DEL 122,126 
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Die im Textfile auftauchenden Zeilennummern sind vom 
zu listenden Programm abhängig und von möglichen Be¬ 
nutzereingaben. Durch den Befehl EXEC LSTR werden 
hinter das ursprüngliche Programmende 5 neue Zeilen 
angefügt mit den Druckeranweisungen. Dann wird das 
erweiterte Programm ab der ersten neuen Zeile gestar¬ 
tet, d.h. es erfolgt das Druckerlisting, anschließend 
werden die angefügten Zeilen wieder gelöscht, so daß 
unser Programm in seiner ursprünglichen Form im Ar¬ 
beitsspeicher zur Verfügung steht. Die Zeilennummern 
20 bis 40, die gelistet werden sollen, sind nur ein 
Beispiel; die an dieser Stelle einzusetzenden Zeilen¬ 
nummern werden mit Hilfe des Programms EINGABE be¬ 
stimmt, das' auch das Textfile LSTR erstellt: 


3 HOME : HTAB (9): PRINT “APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB <9): PRINT "R.PRUST / W.COSS 1984” 
PRINT 

10 REM ERSTELLUNG EINES DRUCK-EXEC"S 
20 = CHR* (4):Q» = CHR* (34) 

30 T = PEEK (115) + PEEK (116) K 256 

40 Z 1 = PEEK (T + 1) + PEEK (T + 2) X 256 

50 Z2 = PEEK (T + 3) + PEEK (T + 4) X 256SX2 = Z2 

SO TT = INT ((T + 6) / 256): POKE 115,T + 6 - TT X 256: 

POKE 116,TT 

70 HOME : CTAB 5: PRINT “BEGINN DES AUSDRUCKS “; 

80 FOR I = 1 TO 6: FLASH : PRINT CHR» (160);: POKE - 
16368,0: WAIT - 16384,128 
90 NORMAL : POKE 36, PEEK (36) - 1 

100 X = PEEK ( - 16384): IF X < >141 THEN X* = X* + 

CHR* (X - 128): PRINT CHR* (X);: NEXT I 
110 PRINT CHR$ (160): POKE - 16368,0: IF X» < > 

THEN ZI = OAL (X$) 

120 L<TAB 8: PRINT “ENDE DES AUSDRUCKS “; 

130 X* = ““: FOR I = 1 TO 6: FLASH : PRINT CHR$ (160);: 
POKE - 16368,0: WAIT - 16384,128 
140 NORMAL : POKE 36, PEEK (36) - 1 

150 X = PEEK ( - 16384): IF X < >141 THEN X^ - X* + 

CHR» (X - 128); PRINT CHR* (X);: NEXT 

160 PRINT CHR» (160): POKE - 16368,0: IF X* < > "“ 

THEN Z2 = OAL (X$) 
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170 

PRINT 

D-^; 

" OPEN 

LSTR" 

180 

PRINT 

D^; 

"DELETE LSTR" 

190 

PRINT 

D^; 

" OPEN 

LSTR" 

200 

PRINT 

D^; 

"WRITE 

: LSTR" 

210 

PRINT 

X2 

+ 2j" 

PR#1:PRINT CHR^(9);";Q^;"80N"; 

220 

PRINT 

X2 

+ 3;" 

PRINT CHR^(9);";Q^;"10L";Q^ 

230 

PRINT 

X2 

+ 4;" 

PRINT CHR^<9);""65R";Q^ 

240 

PRINT 

X2 

+ 5;" 

PRINT CHR^(9);";Q^;"65P";Q^ 

250 

PRINT 

X2 

+ 6;" 

LIST ";21;"-";Z2j": PR#0: END" 


260 PRINT "RUN ";X2 + 2 

270 PRINT "DEL ";X2 + 2;",";X2 + 6 

280 PRINT D$;"CLOSE LSTR" 

290 END 

Hierzu ist vielleicht eine etwas ausführlichere 
Programmbeschreibung angebracht: 


Sätze 


Inhalt 


20 


Festlegung der Stringkonstanten für 
die Textfile - Erstellung ab Zeile 170. 


30 


Die Variable T wird auf den Wert von 
HIMEM gesetzt, der ja durch LISTER re¬ 
duziert worden ist. 


40-50 


In den 4 nachfolgenden Speicherstellen 
befinden sich die Werte von ZI und Z2 
für die kleinste und größte Zeilennum¬ 
mer . < 


60 HIMEM wird auf den ursprünglichen Wert 

(T+6) zurückgesetzt. Die Variable X2 
liefert später die Werte für die Zeilen¬ 
nummern der Datei LSTR. 


70-160 Der Benutzer kann den Programmbereich 

angeben, der gelistet werden soll. Dies 
geht nicht über INPUT-Befehle, da bei 
Programmstart aus einem Textfile alle 
INPUT-Statements das Einlesen des näch¬ 
sten Textfile-Feldes bewirken. 

Also muß direkt die Tastatur abgefragt 
werden. 

70 Bildschirmanzeige 

80 Öffnen einer Schleife für die Eingabe 
der Ziffern der gewünschten Zeilen¬ 
nummer. Einschließlich RETURN sind 
6 Eingaben möglich. Um das Erscheinungs¬ 
bild eines INPUT-Befehls zu simulieren, 
wird ein blinkendes Leerzeichen hinter 
die bisherige Bildschirmanzeige gesetzt. 
Danach hält das Programm an, bis eine 
Tastatureingabe erfolgt ist. 
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Sätze 


170-280 


Inhalt 


90 Für die Bildschirmanzeige der ein¬ 
gegebenen Zeichen wird auf NORMAL 
umgeschaltet und der Cursor in der¬ 
selben Zeile um eine Stelle nach links 
versetzt (d.h. an die Stelle des blin¬ 
kenden Zeichens). 

100 Nun erfolgt die Überprüfung der Tasta¬ 
tureingabe auf RETURN. Solange ande¬ 
re Zeichen eingegeben werden (deren 
Code ungleich 141 ist), werden sie an 
einen String X0 angehängt. Dabei müssen 
wieder die unterschiedlichen ASC-Code- 
zahlen berücksichtigt werden (siehe 
Kap. 3). 

110 Sobald ein Code von 141 erreicht wird, 
also RETURN gedrückt wurde, ist X0 
vollständig. Das letzte blinkende Leer¬ 
zeichen wird durch ein nomales ersetzt 
und der Tastaturpuffer freigemacht. 

Falls X0 dann nicht der leere String ist, 
wird die Variable ZI für die erste Zei¬ 
lennummer des Listings mit dem Inhalt 
von X0 gefüllt. Ansonsten bleibt es auf 
dem Wert der kleinsten Zeilennummer. 

120-160 Eine entsprechende Befehlsfolge für die 
Eingabe der letzten zu listenden Zeile. 
Voreinstellung ist die letzte Programm¬ 
zeile. 

Erstellung des Textfiles LSTR 
Die Befehlsfolgen sind aus früheren Bei¬ 
spielen schon bekannt. 

Wichtig ist, daß die Variablen X2, ZI und 
Z2 bei jedem Durchlauf des Programms EINGABE 
andere Werte haben können. 
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Mit diesem umfangreichen Beispiel soll dieser 
Abschnitt beendet werden. Da EXEC-Dateien meist 
sehr lange Ausführungszeiten benötigen, sollte der 
Leser sich das Beispiel nicht zum Vorbild nehmen; 
gleichwohl kann man ihm entnehmen, daß nahezu alle 
Befehle in Textfiles aufgenommen werden können, daß 
sie aber möglicherweise nicht alle in der bekannten 
Weise wirken, wie es etwa für das INPÜT-Statement 
und auch den GET-Befehl gilt. 
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Kapitel 6; Editieren 


6.1 Vorbemerkungen 


Ein wesentlicher Teil der Zeit wird beim Program¬ 
mieren aufgewendet für die Verbesserung von Fehlern - 
von Tippfehlern und Programmierfehlern - und die Ein¬ 
fügung von zusätzlichen Befehlen, die notwendig sind 
für einen korrekten Programmablauf oder auch nur ein 
Programm verbessern, weil sie z.B. Eingabefehler ab- 
fangen oder Bildschirmanzeigen übersichtlicher gestal¬ 
ten . 


Das Neuschreiben von fehlerhaften Zeilen ist mühsam 
und birgt die Gefahr neuer Tippfehler. Spätestens wenn 
man dazu übergeht, mehrere Befehle in einer Zeile zu¬ 
sammenzufassen, wird es unsinnig, vielleicht wegen 
eines Zeichens alles neu zu tippen. Man kann es sich 
leichter machen, wenn auch der APPLE keinen fest im¬ 
plementierten Editor mit eigenem Befehlssatz hat. 

Eine Möglichkeit bietet die 


ESC 


] -Taste, eine andere 


(komfortablere) der PROGRAM LINE EDITOR. 
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6.2 Der Escape-Modus 


In diesem Modus haben einige Buchstabentasten eine 
andere Funktion als gewohnt. Wie schon aus den Hand¬ 
büchern bekannt, sind dies die Tasten A bis F und I 
bis M. 

Zur Erinnerung sei kurz erwähnt, daß die Bewegung des 
Cursors wie folgt geschieht: 


Cursor 1 Zeile nach 
Cursor 1 Zeile nach 
Cursor 1 Zeile nach 
Cursor 1 Zeile nach 


oben - I , D . 

links - J , B . 

rechts - K , A . 

unten - M , C . 


Dabei hat man z.B. nach ESC| 0 den Escape-Modus 

sofort wieder verlassen, nach | ESC| m jedoch nicht. 
Deshalb bietet sich die erste Spalte für die Cursor¬ 
steuerfunktionen eher an als die zweite. Man bleibt 
dann im Escape-Modus, solange man nur I,J,K oder M 
eingibt. Zudem kann man sich anhand der Lage der Ta¬ 
sten zueinander auf der Tastatur eher ihre Funktion 
einprägen. 


Mit 


ESC 


kann eine Bildschirmzeile von der aktuel¬ 


len Cursorposition ab nach rechts gelöscht werden, mit 
I ESC ] 0 wird der Bildschirm ab der aktuellen Position 
nach rechts und nach unten gelöscht. 

In beiden Fällen wird der Escape-Modus verlassen. 
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Ebenso bekannt ist wohl auch die Tatsache, daß im 
Escape-Modus nur Bewegungen auf dem Bildschirm aus¬ 
geführt werden, aber weder Veränderungen des Bild¬ 
schirm- noch des Speicherinhalts erfolgen. 

Dies kann hingegen geschehen mit den "Pfeiltasten"; 

f ^ I (Backspace) und | —» 1 (Retype). 

Folgende Programmzeile soll als Beispiel für die An¬ 
wendung dieser Funktionen beim Editieren dienen: 

100 PRINT : PRINT "DAS ER6RBNIS 

LAUTET" ;X: IF N = 5 THEN END 


Es sollen folgende Änderungen erfolgen; 


1. Der Tippfehler in ERGEBNIS soll verbessert 
werden. 

2. Hinter LAUTET soll innerhalb des Strings 
ein Doppelpunkt und ein Leerzeichen 
eingefügt werden. 


bringt man zunächst einmal die 
ESC ] B gelangt 


Durch LIST 100 
Zeile auf den Bildschirm. Durch 
man in den Escape-Modus und um eine Zeile nach oben, 
weiteres Drücken von □ bringt den Cursor in die 
richtige Zeile und 0 an den Zeilenanfang bis zur 
'1' von 100. Durch | —> ] wandert man nun über den An¬ 
fang der Zeile 100 bis zum fehlerhaften 'R' in 
ERGRBNIS, dort wird der Fehler einfach überschrieben 
durch E und die Retype-Taste benutzt, um das restliche 
Wort einschließlich eines Leerzeichens neu einzulesen. 
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Der Rest der ersten Bildschirmzeile der Programm- 
zeile 100 ist leer, entsprechend der Bildschirm¬ 
darstellung des APPLE. Diese Leerzeichen "inner¬ 
halb eines Strings", der ja in der nächsten Zeile 
weitergeht, müssen im ESCAPE-Modus übersprungen 
werden. Durch ESC ] 0 gelangt man nach mehrfa¬ 

cher Anwendung zum *L' von LAUTET, was ja wieder 
in die korrigierte Zeile aufgenommen werden soll. 


Nach sechsmaligem Drücken der Retype-Taste steht 
der Cursor hinter dem Wort, auf den Anführungszei¬ 
chen. Dort sollen nun 2 Zeichen eingefügt werden. 
Dies ist möglich durch folgendes Vorgehen: 



IT] [TI 


Leertaste 

Leertaste 


I Esci in 


Verlassen der Zeile nach unten 
2 Zeichen nach links 
Aufheben des Escape-Modus 

Eingabe der 2 neuen zusätz¬ 
lichen Zeichen 

Rückkehr in die Programmzeile 
an die alte Stelle, d.h. bei 
dem Anführungszeichen 


Durch wiederholtes Drücken der Retype-Taste kann nun 
noch der fehlende Rest der Zeile eingelesen werden 
und die neue Programmzeile wird durch 
geschlossen: 


RETURN 


ab- 


100 PRINT : PRINT “DAS ERGEBNIS 

LAUTET; “;X; IF N = 5 THEN END 
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Eine wesentliche Erleichterung bei dieser Art des 
Editierens, insbesondere, wenn Strings in einer 
Zeile enthalten sind, bietet der Befehl 

POKE 33,33 

der schon aus Abschnitt 3.1 bekannt ist. 

Hiermit wird die Breite des Bildschirmfensters von 
40 auf 33 reduziert, so daß keine überflüssigen Leer¬ 
zeichen mehr auf dem Bildschirm erscheinen, wenn LIST 
100 ausgeführt wird. Vor dem POKE sollte ein HOME-Be¬ 
fehl abgesetzt werden, damit nicht die Reste alter 
Anzeigen außerhalb des Bildschirmfensters stehen blei¬ 
ben . 

Man kann den Escape-Modus auch verwenden, um Zeilen 
zusammenzufassen. Die bekannte Zeile 100 könnte z.B. 
aus den folgenden zwei Zeilen entstanden sein: 


100 PRINT : PRINT "DAS ERGEBNIS LAUTET; ";X 
110 IF N = 5 THEN END 
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Nach HOME und POKE 33,33 gibt man 
LIST 100-110 


ESC 


s 


ein. Danach bringt man den Cursor durch 
über die der Zeilennummer 100. Mit der Retype- 
Taste liest man den Inhalt erneut ein, bis der Cursor 
hinter dem 'X' steht. 

"esc ] S und dl wird 


Nun tippt man 


ein. Durch 


der Cursor eine Zeile tiefer an den Anfang des Textes, 
also über das 'I' von IF positioniert und der Inhalt 
dieser Zeile mit Retype ebenfalls eingelesen. 

Die Kontrolle durch LIST 100-110 ergibt: 


100 PRINT : PRINT "DAS ERGEBNIS 

LAUTET: ";X: IF N = 5 THEN END 

110 IF N = 5 THEN END 


Nun kann Zeile 110 gelöscht werden. Auf ähnliche Weise 
kann man auch Zeilen wieder aufspalten, wenn längere 
Einschübe nötig werden, die eine solche Aufspaltung 
sinnvoll erscheinen lassen. Im obigen Beispiel wäre 
folgendermaßen vorzugehen: 

LIST 100 

Eintippen der Zeilennummer 110 

Escape-Modus: Cursor positionieren auf das 'I* 

von IF in Zeile 100 

Retype-Taste (bis hinter END) 

RETURN 
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Nun gibt es wieder eine Zeile 110/ die den IF... 
THEN-Befehl enthält. Dann kann Zeile 100 entsprechend 
gekürzt werden; 

LIST 100 

Escape-Modus: Cursor positionieren auf 
die von 100 

Retype-Taste (bis hinter 'X') 

RETURN 

So werden ab dem Doppelpunkt alle Zeichen einfach 
weggeschnitten/ da sie ja nicht erneut mit Retype ein¬ 
gelesen wurden. 

Zeichen, die mitten aus einer Programmzeile gelöscht 
werden sollen, dürfen nicht mit Retype neu eingelesen 
werden, sondern werden mit |ESC [ | K | "übersprungen". 


Nachdem alle Editiervorgänge erledigt sind, sollte das 
Bildschirmfenster wieder auf seine normale Breite er¬ 
weitert werden durch den Befehl 

POKE 33,40 

Der Escape-Modus bietet also alle Möglichkeiten, schon 
eingegebene Programmzeilen nachträglich zu verändern, 
Zeilen zusammenzufassen oder aufzuspalten. Das Verfah¬ 
ren ist nicht so komfortabel wie ein Editor, aber schon 
nach kurzer Einübungsphase kann man es vernünftig und 
zeitsparend einsetzen. 




6.3 PROGRAM LINE EDITOR 


Das im folgenden kurz PLE oder Editor genannte Pro¬ 
gramm mit Copyright von Neil Konzen leistet eine 
bequeme Form der Veränderung, Kürzung oder Erweite¬ 
rung von Programmzeilen. Das Zusatzprogramm ESC CREATE 
bietet darüber hinaus die Möglichkeit, häufig verwende¬ 
te Befehle als Escapesequenzen abzurufen und einzelne 
Tasten für den Escape-Modus selbst neu zu belegen. 

So kann etwa durch ( ESC | m der Catalog der Diskette 
in Drive 1, durch | ESC | CH derjenigen in Drive 2 
abgerufen werden, d.h. statt Io Tasten müssen nur noch 
2 gedrückt werden, da z.B. ESC 1 gleichbedeutend ist 
mit CATAL0GD1 [RETURN| . Diese Festlegungen können er¬ 
gänzt oder abgeändert werden - je nach den Vorstellun¬ 
gen und Bedürfnissen des einzelnen Benutzers. 

Diese Sonderfunktionen sind nur aktiviert, wenn der 
PLE geladen ist. 

Dies geschieht einfach durch 

RUN PROGRAM LINE EDITOR 

Der Editor wird durch Herabsetzen von HIMEM vor dem 
Überschreiben geschützt, auch nach dem Befehl FP 
bleibt er erhalten, nach dem Booten durch PR# 6 ist 
er allerdings im Normalfall nicht mehr verfügbar, es sei 
denn, man hat ihn in alle Begrüßungsprogramme einge¬ 
baut. Dazu folgen nähere Erläuterungen in Abschnitt 7.3. 
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Durch CTRL-E wird der Editor aufgerufen. Es erscheint 
das Wort EDIT auf dem Schirm, dahinter ist die Num¬ 
mer der gewünschten Zeile einzugeben, nach dem RETURN 
wird die Zeile auf dem Bildschirm angezeigt, der Cur¬ 
sor steht auf dem ersten Zeichen hinter der Zeilennum¬ 
mer, das kein Leerzeichen ist. Steuerzeichen werden in¬ 
vers sichtbar gemacht. In diesem Editiermodus haben eini¬ 
ge Steuerzeichen besondere Funktionen, die die Zeile 
verändern, d.h. Zeichen löschen, einfügen, oder die Be¬ 
wegung innerhalb der Zeile steuern. 

Backspace und Retype funktionieren genau wie sonst. Fal¬ 
sche Zeichen können neu einfach durch Eingabe des rich¬ 
tigen Zeichens überschrieben werden. 

Die wichtigsten Editorbefehle werden hier zunächst auf¬ 
gelistet und dann wird ihr Einsatz an einem Beispiel 
demonstriert. 


CTRL-I Insert - Übergang in den Einfügemodus 

Vor der Stelle, an der der Cursor ge¬ 
rade steht, werden ein oder mehrere 
Zeichen eingefügt. Der rechts von die¬ 
ser Stelle stehende Teil der Zeile wird 
weiter nach rechts gerückt. 

Dieser Einfügemodus wird beendet durch 
Eingabe eines anderen Steuerzeichens, 
durch Retype oder RETURN . 
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CTRL-0 Override - Übergang in den Einfügemodus 

Es gilt das gleiche, was für die Ein¬ 
fügungen mit Hilfe von CTRL-I gesagt 
wurde; allerdings können nach CTRL-0 
auch Steuerzeichen in eine Programm- 
zeile eingefügt werden. Erst nach Ein¬ 
fügen dieses Steuerzeichens (z.B. 

CTRL-D für Diskettenbefehle) ist der 
Einfügemodus beendet. 

CTRL-D Delete 

Es wird ein Zeichen an der Cursorpo¬ 
sition gelöscht und der Text rechts da¬ 
von um ein Zeichen weiter nach links 
gerückt. 

CTRL-Z Zeichen ^ap 

Durch Eingabe von CTRL-Z und einem ge¬ 
wünschten Zeichen werden ab der Cursor¬ 
position alle Zeichen gelöscht bis zum 
ersten Auftreten des eingegebenen Zei¬ 
chens. Dieses bleibt zunächst erhalten. 
Durch Wiederholung der Eingabe des ge¬ 
wünschten Zeichens kann der Löschvor¬ 
gang ein zweites, drittes,... Mal durch¬ 
geführt werden. Uas eingegebene Zeichen 
kann auch ein Steuerzeichen sein. 

CTRL-P Pack 

Mit diesem Befehl werden alle Leerzeichen 
einer BASIC-Zeile außerhalb von Strings 
gelöscht - ganz gleich, an welcher Stelle 
in der Zeile der Befehl abgesetzt wird - 
und der Cursor wird auf den Anfang der 
Zeile gesetzt. 

Der Befehl wird nötig, wenn in sehr lange 
Zeilen noch Einfügungen gemacht werden 
sollen. Bei kurzen Zeilen hat CTRL-P 
nur vorübergehende Wirkung. 
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Die nächste Gruppe von Befehlen ermöglicht das 
Positionieren des Cursors innerhalb einer Zeile. 
Außer der Benutzung der "Pfeiltasten" Backspace 
und Retype gibt es im Editiermodus noch drei weitere 
Möglichkeiten: 


CTRL-N End 

Der Cursor wird hinter das letzte 
Zeichen der Zeile gesetzt. 

CTRL-B Begin 

Der Cursor wird auf das allererste 
Zeichen einer Zeile gesetzt, d.h. auf 
die erste Ziffer der Zeilennummer. 

CTRL-F Zeichen Find 

Der Cursor springt an die Stelle, an 
der das angegebene Zeichen zum ersten 
Mal auftaucht. Durch wiederholte Ein¬ 
gabe des Zeichens kann der Cursor wei¬ 
ter nach rechts bis zum nächsten Auf¬ 
tauchen des Zeichens positioniert wer¬ 
den . 


Die dritte Gruppe wird von solchen Befehlen gebildet, 
mit denen man Änderungen einer Zeile abspeichern oder 
aufheben kann: 
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CTRL-R 


CTRL-X 


CTRL-Q 


CTRL-M 


Restart 

Durch diesen Befehl werden alle bis¬ 
her durchgeführten Änderungen wieder 
aufgehoben und die editierte Zeile 
erscheint wieder in der ursprünglichen 
Form. Selbstverständlich gilt dies nur, 
wenn der Editiermodus noch nicht ver¬ 
lassen wurde. Nach CTRL-R befindet man 
sich immer noch im Editor, es können 
erneut Änderungen derselbe Zeile vor¬ 
genommen werden. 

Die Cursorposition bei Eingabe des Be¬ 
fehls ist ohne Bedeutung. 

Exit 

Es werden alle bisher gemachten Ände¬ 
rungen aufgehoben und der Editor wird 
verlassen. Die gerade editierte Zeile 
bleibt in ihrer ursprünglichen Form 
im Arbeitsspeicher erhalten. 

Es ist unerheblich, an welcher Stelle 
der Cursor in der Zeile gerade steht, 
wenn der Befehl abgesetzt wird. 

Quit 

Bei diesem Befehl ist die Cursorposi¬ 
tion wichtig. 

Alle Änderungen, die in der Zeile links 
vom Cursor durchgeführt wurden, werden 
abgespeichert, alle Zeichen rechts da¬ 
von, einschließlich des Zeichens an der 
aktuellen Cursorposition, werden ge¬ 
löscht und der Editor wird verlassen. 

Der Befehl eignet sich somit zum "Ab¬ 
schneiden" des rechten Teils von Zeilen. 

RETURN 

Alle Änderungen der Zeile werden gespei¬ 
chert und der Editormodus wird verlassen, 
die Cursorposition bei Eingabe des Be¬ 
fehls ist unerheblich. 

Statt CTRL-M kann natürlich auch die 
RETURN-Taste gedrückt werden. 
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Mit diesen Befehlen sind alle erwünschten Änderungen 
von Programmzeilen auf komfortable Weise durchzu¬ 
führen. Darüber hinaus gibt es noch Befehle, die Cur¬ 
sorsteuerfunktion haben und in PRINT-Befehle eingefügt 
werden können, so daß der Cursor programmgesteuert 
auf dem Bildschirm in alle 4 Richtungen bewegt werden 
kann. 

Außerdem ist es möglich, im Editiermodus von Groß- auf 
Kleinschreibung umzuschalten durch einen entsprechen¬ 
den Befehl (CTRL-S). Falls der APPLE nicht mit einem 
entsprechenden Zeichengenerator versehen ist, erschei¬ 
nen auf dem Bildschirm keine Kleinbuchstaben, sondern 
unverständliche Folgen von Symbolen. Auf einem entspre¬ 
chenden Drucker werden aber die kleinen Buchstaben aus¬ 
gegeben . 

An einem Beispiel sollen zum Abschluß einige Verwen¬ 
dungsmöglichkeiten der Editorbefehle aufgezeigt werden; 
es handelt sich um ein kleines Programm, das die Ben¬ 
zinkosten pro Person in einer Fahrgemeinschaft berech¬ 
net; 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB < 9) : PRINT " R. PRUST / N.L^OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKN 

BEI L^ARIABLER PERSONENZAHL UND VARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND VERBRAUCH NERDEN ALS FEST ANGESEHEN 

20 U = 10: REM VERBRAUCH IN L AUF 100 KM 

30 P = 143.9: REM BENZINPREIS IN PF 

40 INPUT KM 

50 INPUT N 

40 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKN IST L‘ERBOTEN!”: PRINT : GOTO 40 
70 GL» = KM / 100 X L» 

80 K = GL' 3^ P / 100 

90 KP = K / N:KP = INT (KP 100 + .5) / 100 
100 HOME 

110 PRINT : PRINT "STRECKE IN KM : ";KM 

120 PRINT : PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


Nun soll zunächst in Zeile 30 der Wert für P verän¬ 
dert werden, da der Benzinpreis gesunken ist; 


CTRL-E 
30 RETURN 


—> (5 


mal) 


3 

6 


RETURN 


Es erscheint die Anzeige: EDIT - 

Die Zeile wird sichtbar, der Cursor 
steht auf dem "P". 

Der Cursor steht auf der "4". 

Die Ziffer "4" wird durch "3" 
überschrieben. 

Die "3" wird durch "6" überschrieben. 

Der Editor wird verlassen, die Ände¬ 
rung ist gespeichert: 
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3 HOME ; HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9>: PRINT "R.PRUST / N A^OSS 1984"; 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 
BEI VARIABLER PERSONENZAHL UND L»ARIABLER FAHRTSTRECKE 
15 REM BENZINPREIS UND VERBRAUCH WERDEN ALS FEST ANGESEHEN 
20 U = 10; REM VERBRAUCH IN L AUF 100 KM 
-#30 P = 136.9; REM BENZINPREIS IN PF 
40 INPUT KM 
50 INPUT N 

60 PRINT ; IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST L>ERBOTEN!"; PRINT : GOTO 40 
70 GL» = KM / 100 ^ U 
80 K = GL» 5^ P / 100 

90 KP = K / N;KP = INT <KP 100 + .5) / 100 
100 HOME 

110 PRINT ; PRINT "STRECKE IN KM ; ";KM 
120 PRINT ; PRINT "KOSTEN PRO PERSON; ";KP 
130 END 


In der Zeile 40 soll das INPUT-Statement durch eine 
Erklärung erweitert werden, daß eine Eingabe für die 
Fahrtstrecke erwartet wird; 


CTRL-E 
40 RETURN 

CTRL-F K 

CTRL-I 

"FAHRTSTRECKE: 

RETURN 


Aufruf des Editors, der Cursor 
steht auf dem "I". 

Der Cursor spring zum "K" von KM. 

Übergang in den Einfügemodus. 

Eingabe des neuen Teiles. 

Abschluß des Einfügemodus und 
der Änderungen: 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) ; PRINT "R.PRUST / N.L»OSS 1984"; 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 
BEI VARIABLER PERSONENZAHL UND L^ARIABLER FAHRTSTRECKE 
15 REM BENZINPREIS UND VERBRAUCH WERDEN ALS FEST ANGESEHEN 
20 = 10; REM L^ERBRAUCH IN L AUF 100 KM 

30 P = 136.9; REM BENZINPREIS IN PF 
•^40 INPUT "FAHRTSTRECKE; ";KM 
50 INPUT N 

60 PRINT ; IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST L'ERBOTEN!"; PRINT ; GOTO 40 
70 GU = KM ./ 100 U 
80 K = GL> X P 100 

90 KP = K / N;KP .= INT (KP ^ 100 + .5) / 100 
100 HOME 

110 PRINT ; PRINT "STRECKE IN KM : " ; KM 
120 PRINT ; PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


In Zeile 50 soll ebenfalls eine Erläuterung dem IN¬ 
PUT hinzugefügt werden, das Vorgehen ist also ähnlich: 


CTRL-E Nach Aufruf des Editors steht der 

50 RETURN Cursor auf dem "I". 


—^(6 mal) Der Cursor steht auf N, dem Zeichen, 

vor dem die Einfügung erfolgen soll. 


CTRL-I 


Einfügemodus 


"PERSONENZAHL; Eingabe des neuen Textes 

Versehentlich wird der Editor durch 
CTRL-Q verlassen, was ein Abschneiden 
des Variablennamens N zur Folge hat*. 


CTRL-Q 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT ; HTAB (9): PRINT "R.PRUST / N.L»OSS 1984"; 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKN 
BEI VARIABLER PERSONENZAHL UND VARIABLER FAHRTSTRECKE 
15 REM BENZINPREIS UND VERBRAUCH NERDEN ALS FEST ANGESEHEN 
20 L» = 10; REM L>ERBRAUCH IN L AUF 100 KM 
30 P = 136.9; REM BENZINPREIS IN PF 
40 INPUT "FAHRTSTRECKE; ";KM 
-►50 INPUT "PERSONENZAHL; "; 

60 PRINT ; IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKN IST L>ERBOTEN!"; PRINT : GOTO 40 
70 GL» = KM / 100 yi L» 

80 K = GL» P / 100 

90 KP = K / N;KP = INT (KP X 100 + .5) / 100 


100 

HOME 




1 10 

PRINT : 

! PRINT "STRECKE IN 

KM ; 

" ; KM 

120 

130 

PRINT ! 
END 

! PRINT "KOSTEN PRO 

PERSON; 

" ;KP 


Die Zeile 50 muß wieder vervollständigt werden; 


CTRL-E 50 RETURN 

CTRL-N Der Cursor springt hinter das "; " 

Das "N" wird an die bisherige 
Zeile angehängt. 


N 


RETURN 
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.3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / N.L'OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 
BEI L»ARIABLER PERSONENZAHL UND L^ARIABLER FAHRTSTRECKE 
15 REM BENZINPREIS UND L'ERBRAUCH WERDEN ALS FEST ANGESEHEN 
20 L» = 10: REM VERBRAUCH IN L AUF 100 KM 
30 P = 136.9: REM BENZINPREIS IN PF 
40 INPUT "FAHRTSTRECKE: ";KM 
•♦50 INPUT "PERSONENZAHL: " ;N 

60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST L»ERBOTEN!": PRINT : GOTO 40 
70 GL> = KM / 100 X ^ 

80 K = GL> ^ P / 100 

90 KP = K / N:KP = INT (KP ^ 100 + .5) / 100 
100 HOME 

110 PRINT : PRINT "STRECKE IN KM : ";KM 
120 PRINT : PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


In Zeile 60 steht eine falsche Sprungadresse, die 
Zeilennummer 40 muß durch 50 ersetzt werden: 

CTRL-E 60 RETURN 

CTRL-F 4 Der Cursor überspringt alle Zeichen 

bis zur falsch eingegebenen 4. 

5 Die richtige Ziffer wird eingegeben. 


RETURN 
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3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB (9): PRINT "R.PRUST / N.L^OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKN 

BEI L>ARIABLER PERSONENZAHL UND L»ARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND L»ERBRAUCH WERDEN ALS FEST ANGESEHEN 

20 = 10: REM L^ERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BENZINPREIS IN PF 

40 INPUT "FAHRTSTRECKE: ";KM 

50 INPUT "PERSONENZAHL: ";N 

-►60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST L^ERBOTEN!“: PRINT : GOTO 50 
70 GL> = KM / 100 ^ L» 

80 K = GL' X P / 100 

90 KP = K / N:KP^= INT <KP ^ 100 + .5) / 100 
100 HOME 

110 PRINT : PRINT "STRECKE IN KM : ";KM 
120 PRINT : PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


Der Programmierer denkt ,nun irrtümlich, die Division 
durch 100 in Zeile 70 sei ein Fehler gewesen. 

Er will die 100 löschen; 

CTRL-E 70 RETURN 

•«—(10 mal) Der Cursor steht auf der "1" 

CTRL-D Löschen der "1" 

CTRL-D Löschen der " 


CTRL-D 


Löschen der 


0 

0 
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Nun sieht das Programm so aus: 


3 HOME : HTAB <9); PRINT “APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB < 9) : PRINT “R.PRUST / W.L'OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 

BEI L^ARIABLER PERSONENZAHL UND L^ARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND L^ERBRAUCH WERDEN ALS FEST ANGESEHEN 

20 L» = 10: REM L»ERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BENZINPREIS IN PF 

40 INPUT "FAHRTSTRECKE: " ; KM 

50 INPUT "PERSONENZAHL; ";N 

60 PRINT ; IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST 'VERBOTEN!"; PRINT ; GOTO 50 
70 GL> = KM / 56 U 

80 K = GL» 56 P / 100 

90 KP = K x'' N;KP = INT (KP 56 100 + .5) / 100 
100 HOME 

110 PRINT : PRIMT "STRECKE IN KM : ";KM 
120 PRINT ; PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


Aber an dieser Stelle fällt ihm auf, daß er sich 

1 

geirrt hat; die Zeile ist völlig korrekt: 


CTRL-X Der Editor wird verlassen, die Ände¬ 

rungen werden wieder aufgehoben. 

Die Zeile bleibt in der ursprünglichen 
Version im Programm. 
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3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) : PRINT "R.PRUST / N.L>OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKN 

BEI L»ARIABLER PERSONENZAHL UND VARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND L»ERBRAUCH NERDEN ALS FEST ANGESEHEN 

20 = 10: REM 'v^ERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BENZINPREIS IN PF 

40 INPUT "FAHRTSTRECKE: ";KM 

50 INPUT "PERSONENZAHL: ";N 

60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKN IST L'ERBOTEN!": PRINT ; GOTO 50 
-^70 GU = KM / 100 ^ ^ 

80 K = G^ 5^ P / 100 

90 KP = K / N:KP = INT (KP ^ 100 + .5) / 100 
100 HOME 

110 PRINT : PRINT "STRECKE IN KM ; ";KM 
120 PRINT : PRINT "KOSTEN PRO PERSON: ";KP 
130 END 


Jetzt soll der Ergebnisausdruck erweitert werden. 

Als erstes soll hinter HOME eine Zeile eingefügt wer¬ 
den, die die Anzeige der Personenzahl bewirkt. 
Außerdem soll aber die Numerierung der Zeilen in Zeh¬ 
nerschritten beibehalten werden, d.h. die Zeilen 
110-130 müssen in 120-140 umbenannt werden: 


CTRL-E 130 RETURN 

CTRL-B Der Cursor springt auf die erste Ziffer 

der Zeilennummer. 


Die 3 wird in 4 geändert. 


RETURN 
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RETURN 

2 wird zu 3 


RETURN 

1 wird 2 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9); PRINT "R.PRUST / N.UOSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKN 

BEI L^ARIABLER PERSONENZAHL UND L'ARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND VERBRAUCH NERDEN ALS FEST ANGESEHEN 

20 C = 10: REM k^ERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BENZINPREIS IN PF 

40 INPUT "FAHRTSTRECKE: ; KM 

50 INPUT "PERSONENZAHL: ";N 

60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST VERBOTEN!": PRINT : GOTO 50 
70 GV = KM / 100 V 
80 K = GV P / 100 

90 KP = K / N:KP = INT < KP 100 + .5) / 100 


100 

HOME 





-> 1 10 

PRINT : 

PRINT "STRECKE 

IN 

KM : 

" ;KM 

120 

PRINT : 

PRINT "STRECKE 

IN 

KM : 

" ;KM 

130 

140 

PRINT : 
END 

PRINT "KOSTEN 

PRO 

PERSON: 

" j KP 


CTRL-E 120 
CTRL-B 

RETURN 

CTRL-E 110 
CTRL-B 

RETURN 
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Die Zeilen 110 und 120 sind nun identisch; 

Zeile 110 soll den neuen Text bekommen. Deshalb 
wird zunächst mit dem Löschen des alten begonnen: 

CTRL-E 110 RETURN 
CTRL-D (7 mal) 


Nach diesem Löschen fällt auf, daß eine Änderung des 
Strings viel günstiger ist. Das Programm sieht jetzt 
so aus: 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / N.L^OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 

BEI L»ARIABLER PERSONENZAHL UND VARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND L^ERBRAUCH WERDEN ALS FEST ANGESEHEN 

20 U = 10: REM VERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BENZINPREIS IN PF 

40 INPUT "FAHRTSTRECKE; "?KM 

50 INPUT "PERSONENZAHL; ";N 

60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST VERBOTEN!"; PRINT ; GOTO 50 
70 GV = KM / 100 X V 
80 K = GV P / 100 

90 KP = K / N:KP = INT <KP ^ 100 + .5) / 100 
100 HOME 

->110 PRINT "STRECKE IN KM ; ";KM 

120 PRINT ; PRINT "STRECKE IN KM ; ";KM 
130 PRINT ; PRINT "KOSTEN PRO PERSON; ";KP 
140 END 
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Da der Irrtum vor dem Verlassen des Editors be¬ 
merkt wurde, kann der ursprüngliche Zustand der 
Zeile leicht wiederhergestellt werden: 


CTRL-R Die bisherigen Änderungen sind auf¬ 

gehoben, aber die Zeile kann weiter 
editiert werden, 

CTRL-F S Der Cursor wird auf "S" von "STRECKE" 

gesetzt. 

"PERSONENZAHL " Der alte String wird durch den neuen 
überschrieben. 

RETURN 


3 HOME ; HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.OOSS 1984": 
PRINT 

10 REM PROGRAMM ZUR BERECHNUNG DER FAHRTKOSTEN IM PKW 

BEI VARIABLER PERSONENZAHL UND VARIABLER FAHRTSTRECKE 

15 REM BENZINPREIS UND OERBRAUCH WERDEN ALS FEST ANGESEHEN 

20 O = 10: REM OERBRAUCH IN L AUF 100 KM 

30 P = 136.9: REM BEN^INPREIS IN PF 

40 INPUT "FAHRTSTRECKE: ";KM 

50 INPUT "PERSONENZAHL: ";N 

60 PRINT : IF N > 5 THEN PRINT "MEHR ALS 5 PERSONEN IM 
PKW IST OERBOTEN!": PRINT : GOTO 50 


70 

GO = KM / 

100 0 


80 

K = GO X 

P / 100 


90 

KP = K / 

N:KP = INT (KP ^ 100 + .5) 

/ 100 

100 

HOME 



->1 10 

PRINT : 

PRINT "PERSONENZAHL 

" ;KM 

120 

PRINT : 

PRINT "STRECKE IN KM : 

" ;KM 

130 

PRINT : 

PRINT "KOSTEN PRO PERSON: 

" ;KP 

140 

END 
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Damit soll das Programm seine endgültige Form er¬ 
halten haben, weitere Änderungen sind nicht er¬ 
wünscht. An diesem Beispiel konnten zwar nicht alle 
Befehle demonstriert werden, doch wird wohl auch so 
schon deutlich, wie bequem Änderungen in Programm¬ 
zeilen durchgeführt werden können mit Hilfe des Pro¬ 
gramms PROGRAM LINE EDITOR. 

Das Zusammenfassen von Zeilen muß nach wie vor im Es- 
cape-Modus erfolgen, doch kann auf POKE 33,33 ver¬ 
zichtet werden, wenn die betreffenden Zeilen nicht mit 
LIST, sondern mit CTRL-E auf dem Bildschirm angezeigt 
werden. 


Es wurde schon erwähnt, daß nach dem Start des PLE 
einige ESCAPE-Sequenzen eine besondere Bedeutung haben. 
So bewirkt beispielsweise 


ESC 


□ 


den Aufruf des 
Monitors. Will man also den Doppelpunkt zwischen die 
beiden zusammenzufassenden Zeilen einfügen, muß sicher¬ 
gestellt sein, daß der Escape-Modus bereits verlassen 
wurde. Man kann aber auch die ESC-Funktionen neu bele¬ 
gen. 


Ein Nachteil des PLE ist die etwas umständliche Art 
des Zeilenumnumerierens. Hier bringt die Verwendung des 
Programms nur insofern einen Vorteil, als nicht mehr 
die ganze Zeile durch Retype neu eingelesen werden muß. 
Im nächsten Kapitel wird allerdings ein Hilfsprogramm 
vorgestellt, das in diesem Bereich wesentlich komfor¬ 
tabler ist. 
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Kapitel 7: Prograinmierhilfen 


7.1 Vorbemerkungen 

Unter dem Oberbegriff "Prograinmierhilfen" sollen in 
diesem Kapitel mehrere Techniken angesprochen werden, 
die ein Programm schneller oder benutzerfreundlicher 
machen, bzw. solche Hilfsroutinen vorgestellt werden, 
die die Programmierarbeit erleichtern. 

In den ersten beiden Abschnitten werden einige Ersatz¬ 
möglichkeiten der APPLE-Programmpakete APPLE DOC und 
DOS TOOL KIT vorgeführt, darunter besonders die Rou¬ 
tinen APA (APPLE Programmer's Assistant) und LINEDOC 
und VARDOC, die fast unentbehrliche Hilfsmittel sind 
für den fortgeschrittenen APPLE-Benutzer, der schon 
umfangreichere Programme schreibt, bei denen man den 
Überblick über die verwendeten Variablen und die Sprung¬ 
adressen leicht verlieren kann. 

Im dritten Abschnitt wird an einem Beispiel demon¬ 
striert, wie man sein Initialisierungsprogramm so er¬ 
weitern kann, daß bei jedem Einschalten des Rechners 
die häufig benutzten Routinen sofort zur Verfügung stehen. 

Die beiden letzten Abschnitte schließlich zeigen fort¬ 
geschrittene Programmierung an zwei Spezialfällen auf, 
die sich dem Programmierer besonders häufig als Pro¬ 
blem stellen; Sortieren und Bildschirmgestaltung. 
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Beim Sortieren zeigt sich besonders deutlich, wie 
die Wahl eines geeigneten Algorithmus, d.h. die 
Wahl des geeigneten Lösungswegs, die Ausführungs¬ 
zeit eines Programms erheblich verkürzen kann. 

Die Gestaltung guter Bildschirmmasken - das sind 
solche, die übersichtlich und für den Benutzer leicht 
verständlich sind - ist eine zeitintensive Aufgabe 
für den Programmierer. 

Durch Anwendung kleiner Tricks kann man dafür schon 
bald erheblich Zeit einsparen. 
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7.2 Umnumerieren und Mischen von Programmen 

Das DOS TOOL KIT (tool kit = Werkzeugkasten) - 
mit Copyright der Firma APPLE Computer Incorpo- 
ration - enthält neben vielen anderen Programmen 
(Spiele, verschiedene Zeichensätze) APA, ein nütz¬ 
liches Hilfsmittel bei der Erstellung längerer Pro¬ 
gramme, mit dem u.a. ganze Programme oder Programm¬ 
teile umnumeriert oder mehrere Programme "gemischt" 
werden können. 

Auf der Diskette befinden sich die Programme APA 
und LOADAPA. Zunächst muß mit 

RUN LOADAPA 

das Ladeprogramm gestartet werden, das APA genau un¬ 
terhalb von HIMEM lädt und dann HIMEM herabsetzt, 
so daß unser Hilfsprogramm gegen versehentliches Lö¬ 
schen geschützt ist. Das Herabsetzen von HIMEM "un¬ 
terhalb" von APA bedeutet Schutz für APA und zugleich 
eröffnet es die Möglichkeit, nun im folgenden "ganz 
normal" mit dem Rechner zu arbeiten. Es können Program¬ 
me geladen oder eingetippt werden, als sei APA nicht 
vorhanden. Eine Veränderung ergibt sich natürlich: 

Der frei zur Verfügung stehende Speicher wird durch 
ein niedrigeres HIMEM kleiner. Nach dem Booten durch 
die Systemdiskette steht HIMEM auf 38400, nach dem 
Laden von APA ist die höchste ansprechbare Speicher¬ 
adresse 34785. 

Dieser Verlust von 3615 bytes wird sich jedoch erst 
bei sehr großen Programmen mit sehr vielen Variablen 
bemerkbar machen. 
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LOADAPA liefert außerdem folgenden Bildschirmaus¬ 
druck, eine Übersicht über die möglichen APA-Befehle 


APPLESOFT PROGRAMMER'S ASSISTANT 
»JERSION 1.0 

<C) COPYRIGHT 1979, APPLE COMPUTER INC. 


&.RENUMBER <START> , < INO , CFI RST> , <LAST> 

icHOLD 

a^MERGE 

ftcLENGTH 

a^COMPRESS 

a^SHOW 

a^NOSHOW 

acAUTO <START>,<INC> 

a^MANUAL 

acXREF 

a^KEYS 
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Wie schon aus der Übersicht deutlich wird, müssen 
alle Befehle des APA durch gekennzeichnet wer¬ 

den zur Unterscheidung von den üblichen Kommandos, 
d.h. Befehlen im Direktmodus. Von besonderem Interes¬ 
se sind hier die Befehle &RENUMBER, &HOLD und 
&MERGE, deren Wirkung ausführlich besprochen werden 
soll. 

Was leisten die übrigen? 


&LENGTH 

Die Länge eines im Arbeitsspeicher befindlichen Pro¬ 
gramms kann ermittelt werden. Nach dem Eintippen oder 
Laden eines Programms muß über die Tastatur nur 

&L 

eingegeben werden und die Länge des Programms wird 
in bytes angezeigt, und zwar dezimal und hexadezimal. 


&COMPRESS 

Aus dem Programm im Arbeitspeicher werden alle REM- 
Statements entfernt nach Eintippen von 

&C 

Es erfolgt eine Anzeige, wieviele bytes eingespart 
werden konnten, und zwar wiederum dezimal und hexade¬ 
zimal . 
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&SHOW 

Nach Eingabe des entsprechenden Befehls 

&S 

sind zunächst unsichtbare Steuerzeichen (control 
characters) im Programm als inverse Zeichen sichtbar. 
Der Befehl bleibt in Kraft, bis er aufgehoben wird 
durch den nachfolgenden. 


&NOSHOW 


&N 

hebt den Befehl &S wieder auf, die Steuerzeichen wer¬ 
den wieder unsichtbar. 


&AUTO <:start> , <inc> 

Dieser Befehl ermöglicht eine automatische Zeilennume¬ 
rierung, die bei der angegebenen Start zeile beginnt 
und jeweils um die Schrittweite ( inc rement) erhöht. 
Beide Parameter müssen angegeben werden. Durch Einge¬ 
ben von z.B. 


&A 100,10 
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wird die automatische Numerierung initialisiert, 
und zwar wird als erstes die Zeilennummer 100 
generiert, die nachfolgenden jeweils in Zehner¬ 
schritten: 110, 120, 130. 

Dies geschieht aber nur, wenn als erstes Zeichen 
nach einem <RETURN> <[SPACE) (Leerzeichen) über die 
Tastatur abgeschickt wird. 

Es bedeutet aber, daß nach wie vor Kommandos wie 
RUN, LOAD, SAVE etc. abgesetzt werden können. 

Außerdem kann auch eine Numerierung "von Hand" wei¬ 
terhin erfolgen, wenn eine von <INC> abweichende 
Schrittweite gewünscht wird. Wenn im angegebenen 
Beispiel aber die Zeilennummer 120 nicht durch Drük- 
ken der Leertaste, sondern durch Eintippen der Zah¬ 
len generiert wird, so wird dies von APA nicht regi¬ 
striert, d.h. diese Nummer wird von der Automatik 
noch zusätzlich erzeugt. Ebenso wird nicht geprüft, 
ob hinter einer automatisch erzeugten Zeilennummer 
tatsächlich etwas eingegeben wurde. 

Wenn man sofort die <RETURN> -Taste drückt, wird diese 
Zeile zwar wie üblich beim Listing nicht aufgeführt, 
aber APA erhöht trotzdem entsprechend der angegebenen 
Schrittweite. Nur wenn vor dem Abschluß der Zeile, d.h. 
vor dem <RETURN) , CTRL-X eingegeben wird, wird die 
zuletzt erfolgte Zeilennummererhöhung rückgängig ge¬ 
macht. Dies kann benutzt werden, um aus falsch begon¬ 
nenen Zeilen wieder herauszukommen. 

Die Schrittweite kann durch weitere Befehle verändert 
werden, auch nachdem Teile eines Programms eingege¬ 
ben worden sind. Aufgehoben wird dieser Befehl durch 
den nachfolgenden. 
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&MANUAL 

Durch Eintippen von 

&MA 

wird die automatische Zeilennumerierung wieder 
"ausgeschaltet". 


&XPRET 


Dieser Befehl erstellt eine alphabetisch sortierte 
Liste aller Variablen, die in dem im Arbeitsspeicher 
vorhandenen Programm verwendet wurden, mit den Num¬ 
mern der Zeilen, in denen die jeweilige Variable auf- 
tauchte. Dabei werden Arrayvariablen durch eine nach¬ 
folgende linke Klammer gekennzeichnet, Stringvariab¬ 
len und Integervariablen wie üblich durch $ und %. 
Genau wie bei Programmlistings kann die Bildschirm¬ 
anzeige durch CTRL-S unterbrochen werden. Einzutippen 
ist nur 


&X 

Im nächsten Abschnitt wird eine weitere Möglichkeit 
für eine Variablentabelle vorgestellt. 
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&KEYS 

Durch diesen Befehl werden 3 zusätzliche Zeichen 
verfügbar, die dann über Steuerzeichen abrufbar sind. 
Nach Eintippen von 

&K 

ist die linke eckige Klammer (C) darstellbar durch 
CTRL-K, der Backslash (\) durch CTRL-L und der Strich 
auf der Grundlinie (underscore; _) durch CTRL-0. 

Aufgehoben wird dieser Befehl ebenfalls durch 

&MA 

Bevor nun die 3 wichtigsten Befehle des APA vorgestellt 
werden, soll noch kurz darauf hingewiesen werden, daß 
einige dieser Befehle, beispielsweise &AUTO, andere 
Hilfsroutinen zerstören, die möglicherweise vorher ge¬ 
laden worden waren. Dieses Problem wird in Abschnitt 
7.4 noch einmal aufgegriffen. 

Nun aber zu den 3 Befehlen, deren Syntax zunächst er¬ 
läutert werden soll: 
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&HOLD 

Mit diesem Befehl wird das Programm im Arbeits¬ 
speicher "beiseitegeschoben"; es kann ein neues 
geladen werden, aber das alte geht nicht verloren. 


&MERGE 

Damit können 2 Programme gemischt werden durch fol¬ 
gende Vorgehensweise: 

Ein erstes Programm wird geladen und durch 

&H 

zur Verfügung gehalten. Dann wird ein zweites Pro¬ 
gramm geladen, das andere Zeilennummern als das erste 
haben sollte. Durch 

&M 

werden die beiden Programme gemischt; ihre Zeilen wer¬ 
den nach den jeweiligen Nummern ineinandersortiert. 
Treten doch doppelte Zeilennummern auf, macht das Pro¬ 
gramm eine entsprechende Meldung und fragt 


CONTINUE? 
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Bei der Antwort "N" wird die Ausführung des MERGE- 
Befehls abgebrochen, bei der Antwort "Y" wird gege¬ 
benenfalls die Zeile aus dem HOLD-Programm über¬ 
nommen und die andere gelöscht. 


&RENUMBER <start> , <:inc> , Cfirst) , <last> 

Mit diesem Befehl kann die Zeilennumerierung des gan¬ 
zen Programms oder von Teilen des Programms im Ar¬ 
beitsspeicher verändert werden, solange durch teilwei¬ 
se Umnumerierung keine überlappenden oder doppelten 
Zeilennummern entstehen. In solchen Fällen wird der Be¬ 
fehl nicht ausgeführt und es erfolgt eine entsprechen¬ 
de Bildschirmanzeige. 

Alle 4 Parameter des Befehls sind optional, d.h. sie 
können weggelassen werden, das Programm benötigt aber 
die Kommata, da die Reihenfolge der Eingabe wichtig ist. 
Falls eine Parameterangabe fehlt, werden die Default- 
Werte angenommen. Voreingestellt sind folgende Werte: 


<start>: 

100 

Für die erste neue Zeilennummer 
ist 100 vorgesehen. 

<inc> ; 

10 

Der Abstand zwischen zwei auf¬ 
einanderfolgende Zeilennummern 
(d.h. die Schrittweite) wird 
mit 10 angenommen. 
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^first^ : 0 Die erste neu zu numerieren¬ 

de Zeile hat die kleinste mög¬ 
liche Zeilennummer 0, d.h. die 
Änderung beginnt bei der ersten 
Zeile des Programms. 

^last> : 63999 Dies ist die größtmögliche Zei¬ 

lennummer, d.h. die Änderung 
wird bis zur letzten Zeile des 
Programms durchgeführt. 


An einem Beispiel sollen nun einige Formen des Befehls 
vorgeführt werden. Im Arbeitsspeicher befindet sich das 
folgende Programm: 


3 HOME : HTAB"(9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB (9); PRINT "R.PRUST / N.L'OSS 


PRINT 



10 

REM 

DEMONSTRATION 

^ON 

1 1 

REM 

R E N U M 

B E R 

12 

REM 



20 

PRINT 

"R" 


30 

PRINT 

"E" 


40 

PRINT 

"N" 


50 

PRINT 

"U" 


60 

PRINT 

"M" 


70 

PRINT 

"B" 


80 

PRINT 

II ^ II 


90 

PRINT 

IIRII 


100 

END 




1984": 
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Das Eintippen von 

&R 100,,10 


führt zu folgender Version; 


3 HOME ; HTAB <9); PRINT “APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB < 9) : PRINT ” R. PRUST / W.L>OSS 1984“ 


PRINT 



100 

REM 

DEMONSTRATION 

KfON 

1 10 

REM 

R E N U M 

B E 

120 

REM 



130 

PRINT 

HR,. 


140 

PRINT 

11 ^ H 


150 

PRINT 



160 

PRINT 

“U“ 


170 

PRINT 

“M“ 


180 

PRINT 

"B” 


190 

PRINT 

II ^ II 


200 

PRINT 

„RI. 


210 

END 




Um hieraus die Ursprungsversion wiederherzustellen, 
muß man in 2 Schritten Vorgehen 


&R 10,1,100,120 


Die erste neue Zeilennummer ist die 10, die Schritt¬ 
weite soll 1 sein und dies geschieht von Zeile 100 
bis zur Zeile 120. 
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Als Ergebnis dieses Befehls erhalten wir folgende 
Progranunversion: 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) ; PRINT "R.PRUST / W.L^OSS 1984” 


PRINT 



10 

REM 

DEMONSTRATION 

L>0N 

11 

REM 

R E N U M 

B E R 

12 

REM 



130 

PRINT 

"R" 


140 

PRINT 

II ^ II 


150 

PRINT 

"N" 


160 

PRINT 

“U" 


170 

PRINT 

"M” 


180 

PRINT 

II B« 


190 

PRINT 

IIB» V 


200 

PRINT 

II RI. 


210 

END 




Folgender Renumber-Befehl stellt nun die ursprüng¬ 
liche Programmnumerierung wieder her; 

&R 20,,130 

Die erste neue Zeile wird die Zeile 20, die Schritt¬ 
weite ist weggelassen worden, wird also auf den De- 
faultwert 10 gesetzt, die Umnumerierung beginnt bei 
der Zeile 130 des Programms und läuft bis zur letzten 
Zeile, da auch der Wert für last nicht spezifiziert 
ist. 
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Nun befindet sich wieder die erste Version im Ar¬ 
beitsspeicher. Der nachfolgende Befehl wird von APA 
nicht ausgeführt, stattdessen bringt er die Fehler¬ 
meldung 

INTERLEAVED OR DUPLICATE LINE NUMBER: 

&R 36,6,70,90 

Der Rechner wird angewiesen, die Zeilen 70, 80 und 
90 des Programms, die die Anzeige von B, E und R be¬ 
wirken, umzunumerieren mit Schrittweise 6 und begin¬ 
nend bei 36, d.h. er sollte folgende Zeilennummern er- 
zeugen; 


3 HOME : HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB <9); PRINT "R.PRUST / N.UOSS 1984" 


PRINT 



10 

REM 

DEMONSTRATION 

UON 

11 

REM 

R E N U M 

B E 

12 

REM 



20 

PRINT 

"R" 


30 

PRINT 

"E" • 


36 

PRINT 

"B" 


40 

PRINT 

"N" 


42 

PRINT 

"E" 


48 

PRINT 

MR„ 


50 

PRINT 

“U" 


60 

PRINT 

"M" 


100 

END 




^Diese Numerierung wurde nicht mit APA erstellt, son¬ 
dern mit dem RENUMBER von der APPLE Systemdiskette. 
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Man sieht, daß sich neue und alte Zeilennummern 
"überlappen", da die neue Zeile 36 zwischen 30 und 
40 einsortiert wird, die beiden anderen (42 und 48) 
aber hinter die Zeile 40. Solche Überschneidungen 
werden nicht ausgeführt. Es ist aber möglich, zwi¬ 
schen zwei vorhandene Zeilen eine oder mehrere 
zwischenzuschieben, z.B. durch folgenden Befehl : 

&R 53,3,70,90 


Man erhält nun diese Numerierung : 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS¬ 


4 

PRINT : 

PRINT 

: HTAB 

<9) ; 

PRINT 




10 

REM 

DEMONSTRATION 

L>ON 

11 

REM 

R 

E N U M 

B E 

12 

REM 




20 

PRINT 

"R" 



30 

PRINT 

II ^ II 



40 

PRINT 

"N" 



50 

PRINT 

“U" 



53 

PRINT 

II011 



56 

PRINT 

II0II 



59 

PRINT 

HR« 



60 

PRINT 

"M" 



100 

END 





PRINT "R.PRUST / W.L>OSS 1984" 

R 
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Solche Verschiebungen Im Programm werden nötig, wenn 
der Programmablauf nicht korrekt bzw. nicht optimal 
gestaltet ist. Eventuell müssen vor dem "Einschub" 
von Zeilen zwischen zwei andere größere Teile des 
Programms umnumeriert werden; dies wird immer dann 
erforderlich, wenn die Schrittweite zwischen den 
beiden "flankierenden" Zeilen nicht mindestens um 
Eins größer ist als die Anzahl der einzuschiebenden 
Zeilen. Nach der Veränderung des Programmablaufs kann 
durch ein weiteres Renumber wieder die ansonsten ver¬ 
wendete Schrittweite hergestellt werden. 

Nicht ausgeführt würde im Gegensatz zu dem vorigen 
der folgende Befehl, dessen Ausführung zu doppelten 
Zeilennummern führen würde: 

&R 10,10,10,12 

Die Zeilen 10, 11 und 12 müßten umgewandelt werden zu 
10, 20 und 30; dies bedeutete aber eine doppelte Ver¬ 
wendung der Zeilennummern 20 und 30. 

Die Ausführung unterbleibt und stattdessen erscheint 
auf dem Bildschirm die schon bekannte Meldung 

INTERLEAVED OR DUPLICATE LINE NUMBER. 


Diese Liste von Möglichkeiten macht einige Vorzüge 
der Hilfsroutine RENUMBER deutlich, doch fehlt noch 
der entscheidende Hinweis auf eine Eigenschaft, die an¬ 
hand des Beispiels nicht sichtbar wurde. 


28o 


Die Umnumerierungen beschränken sich nicht nur auf 
die eine Zeile anführende Zeilennummer, sondern auch 
auf die Sprungadressen, die in den Anweisungen GOTO, 
IF...THEN, GOSUB verwendet werden. 

Für jede geänderte Zeilennummer wird überprüft, ob sie 
in einem Sprungbefehl genannt ist und auch dort wird 
sie dann geändert. Diese Überprüfung erstreckt sich auf 
das ganze Programm, auch dann, wenn nur Teile des Pro¬ 
gramms umnumeriert werden. 


Dieser Abschnitt soll nun beendet werden mit einem 
Beispiel, das den großen Nutzen von APA bei der prak¬ 
tischen Programmierarbeit deutlich macht. Obwohl die 
APPLE-Systemdiskette ebenfalls ein RENUMBER-Programm 
enthält, ist APA ein Gewinn, da dieses Programm zuver¬ 
lässiger arbeitet und z.B. mit dem Editor, der in Ka¬ 
pitel 6 beschrieben wurde, weitgehend verträglich ist, 
zumindest was die 3 wichtigsten Befehle angeht, die zu¬ 
letzt besprochen wurden. 

Beim einfachen RENUMBER treten hingegen Interaktionen 
mit dem Editor auf, die z.B. dazu führen, daß nach 
einem RENUMBER-Befehl der Monitor aufgerufen wird. 

Zwar ist der Befehl meist durchgeführt worden, aber 
es ist doch recht lästig, für das weitere Arbeiten am 
Programm immer erst 3D0G eintippen zu müssen, um den 
Monitor wieder zu verlassen. 


Nun aber zum Beispiel: 
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Das folgende kleine Programm mit den Zeilennummern 
10-50 soll als Unterprogramm in ein Hauptprogramm 
eingefügt werden. Es erzeugt eine "laufende Bild¬ 
schirmzeile". Die Variablen A0 und Hl müssen aus dem 
Hauptprogramm übergeben werden. 


10 = " . “lA = LEN 

<A^):A^ = A^ + RIGHTS - A) 

20 = LEFT^ <A^,1):A^ = RIGHTS <A^,39) + : INUERSE : LTAB 

(Hl): CALL - 958 

30 LTAB (Hl): PRINT LEFT^ (A^,40): FOR Q = 1 TO 150: NEXT 

40 IF PEEK ( - 16384) < 128 THEN 20 
50 NORMAL 


Außerdem soll das fertig gemischte Programm mit dem 
bekannten Vorspann versehen werden. Dies geschieht 
durch das nachstehende kleine Programm aus den Zeilen 
30 und 40: 


30 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

40 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.L^OSS 1984": 
PRINT 
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Das Hauptprogramm diene der Berechnung des Durch¬ 
schnitts von N Werten. Dabei ist dem Programmierer 
ein Fehler unterlaufen, den er aber rechtzeitig be¬ 
merkt; 


10 HTAB 7: PRINT "BERECHNUNG DES DURCHSCHNITTS“ 

20 A» = "DRUECKEN SIE IRGENDEINE TASTE";H1 = 20; 60SUB 100 
30 INPUT "WERT";X 
40 INPUT "ANZAHL DER WERTE";N 
50S=S+X:I=I+1:IFI<N THEN 30 

60 HOME : UTAB 10: PRINT "DURCHSCHNITT DER ";N;" WERTE; ";S 
/ N 

70 END 


Es handelt sich natürlich um die Vertauschung der 
beiden Zeilen 30 und 40. Vor der Zeile 10 soll nun 
das VorspannprograiTun gesetzt werden, ab Zeile 100 
soll als Unterprogramm die laufende Bildschirmzeile 
folgen, die den Ausdruck 

"DRUECKEN SIE IRGENDEINE TASTE" 

in der Bildschirmzeile 20 produzieren soll. 

Auf der Diskette befinden sich die Programme LAUFZEILE 
und VORSPANN, im Arbeitsspeicher das Programm zur 
Durchschnittsberechnung mit dem genannten Fehler. 

Wie ist nun vorzugehen? 


1. &R 25,,40,40 

Durch diesen Befehl wird die Zeile 40 zur 
Zeile 25 gemacht. Das Hauptprogramm ist 
jetzt im Ablauf korrekt; 
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10 HTAB 7; PRINT "BERECHNUNG DES DURCHSCHNITTS" 

20 = "DRUECKEN SIE IRGENDEINE TASTE":H1 = 20: 60SUB 100 

25 INPUT "ANZAHL DER NERTE";N 
30 INPUT "WERT";X 

50S=S+X:I=I+1:IFI<N THEN 30 

60 HOME ! L'TAB 10; PRINT "DURCHSCHNITT DER ";N;" WERTE: ";S 
/ N 

70 END 


&H 

Das Hauptprogramm wird beiseite geschoben. 

2. LOAD VORSPANN 


Das erste einzumischende Programm 
wird geladen. Es hat die Zeilennummern 
30 und 40, die zunächst geändert wer¬ 
den sollen in 3 und 4 durch: 

&R 3,1 

Ist das geschehen, werden diese beiden neuen 
Zeilen dem Hauptprogramm hinzugefügt durch 

&M 

Ergebnis dieser Befehle ist das folgende 
Programm; 
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3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.UOSS 1984”: 
PRINT 

10 HTAB 7: PRINT "BERECHNUNG DES DURCHSCHNITTS” 

20 = "DRUECKEN SIE IRGENDEINE TASTE”:H1 = 20: GOSUB 100 

25 INPUT "ANZAHL DER WERTE”;N 
30 INPUT "WERT”;X 

50S=S + X:I = I■^1:IFI<N THEN 30 

60 HOME : 'JTAB 10: PRINT “DURCHSCHNITT DER ”;N;” WERTE: ”;S 
/ N 

70 END 


Durch &H wird dieses wiederum beiseitege¬ 
schoben. 


3. Nun fehlt noch das Unterprogramm. Es wird 
geladen di^rch 

LOAD LAUFZEILE 

Als erstes wird das noch fehlende RETURN in 
Zeile 60 hinzugefügt, da es ja ein Unterpro¬ 
gramm werden soll, und vorher wird der Bild¬ 
schirm gelöscht, also: 

60 HOME:RETURN 

Nun muß es umnumeriert werden, da im Hauptpro¬ 
gramm der Befehl GOSUB 100 steht. 

&R 

reicht ohne weitere Spezifikation aus, um die 
Zeilen 10 bis 60 umzuwandeln in die Zeilen 100 
bis 150. 

Man beachte, daß auch die Sprungadresse in der 
ehemaligen Zeile 40 (jetzt 130) geändert wurde 
in 110. 
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Das Einmischen in das bisher erstellte Haupt¬ 
programm geschieht durch 

&M 

wie schon vorher. Nun wird das Hauptprogramm 
noch umnumeriert, um die ungewohnte Zeilen¬ 
nummer 25 zu vermeiden, nämlich durch 

&R 30,,25 

Das Ergebnis ist nun das fertige Programm: 


3 HOME : HTAB (9): PRINT “APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9); PRINT "R.PRUST / N.UOSS 1984": 


PRINT 

10 HTAB 7: PRINT "BERECHNUNG DES DURCHSCHNITTS" 



20 A^ = "DRUECKEN SIE IRGENDEINE TASTE":H1 = 
30 INPUT "ANZAHL DER WERTE"jN 

40 INPUT "WERT";X 

50S=S+X:I=I+1:IFI<N THEN 40 

20 : 

GOSUB 

100 

60 HOME : UTAB 10; PRINT "DURCHSCHNITT DER 
/ N 

70 END 

";N; 

" WERTE 

: ";S 

100 H^ = " 

<A^);A^ = A^ + RIGHTS <H^,40 - A) 


" :A = 

LEN 

110 H^ = LEFT^ (A^,1):A^ = RIGHTS <A^,39) 
L>TAB <H1) : CALL - 958 

+ H^ 

; INL»ERSE ; 

120 L^TAB <H1); PRINT LEFT^ <A^,40); FOR Q 

130 IF PEEK ( - 16384) < 128 THEN 110 

140 NORMAL 

150 HOME : RETURN 

= 1 

TO 150: 

NEXT 
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Auch bei diesem Umnumerieren wurde eine Sprungadres¬ 
se verändert. 

Falls nun noch mehr als zwei Zeilen in das Haupt¬ 
programm eingefügt werden sollten, man aber nach wie 
vor in Zehnerschritten numerieren möchte, so müßte 
das Unterprogramm größere Zeilennummern bekommen, 
etwa mit Zeile 200 beginnend. Der Leser überzeuge 
sich, daß der Befehl 

&R 200,,100 

zu einer Umnumerierung führt, die sowohl die Sprung¬ 
adresse innerhalb des Unterprogramms von 110 in 210 
umwandelt auch auch die Sprungadresse hinter GOSUB 
im Hauptprogramm auf 200 setzt. 

Zum Abschluß soll noch darauf hingewiesen werden, daß 
die beiden Hilfsroutinen APA und PROGRAM LINE EDITOR 
nur dann weitgehend miteinander verträglich sind, 
wenn zunächst der Editor und dann erst APA geladen 
werden. Bei der umgekehrten Reihenfolge wird APA durch 
den Editor zerstört. 

Die Benutzung von Textfiles und des EXEC-Befehls, wie 
sie in Kapitel 5 beschrieben wurde, zum Mischen von 
fertigen Programmteilen ist bei weitem nicht so komfor¬ 
tabel wie der Einsatz von APA, da dessen Möglichkeiten 
vielseitiger sind. 
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7.3 Überblick und Dokumentation 


Beim Mischen von Programmen oder auch beim Program¬ 
mieren eines umfangreichen Programms stellt sich oft 
das Problem der Variablenkontrolle, d.h. welche 
Variablennamen dürfen noch verwendet werden bzw. wo 
könnten unerwünschte Überschneidungen zwischen mehre¬ 
ren Programmteilen auftreten? 

Gelegentlich - bei sehr großen Programmen - wird man 
sogar die Anzahl der Variablen verringern müssen, d.h. 
man wird denselben Namen mehrfach im Programm für ver¬ 
schiedene Variablen verwenden müssen, da auch nur ein¬ 
mal angesprochene Variablen Speicherplatz benötigen. 

Der Überblick über zulässige Möglichkeiten der Ände¬ 
rung geht leicht verloren. Zudem ist häufig eine Doku¬ 
mentation innerhalb des Programms durch REM-State- 
ments aus Platzmangel nicht mehr möglich. Das Gleiche 
gilt für Änderungen von Zeilennummern, z.B. durch Zu¬ 
sammenfassen von Zeilen; 

bei Zeilennummern, die als Sprungadressen im Programm 
auftauchen, ist dies nicht möglich ohne Änderung der 
entsprechenden Sprungbefehle. 

Hier hilft nun ein weiteres Programmpaket weiter, mit 
dem man sich den Überblick über die Variablen seines 
Programms und die Sprungadressen verschaffen kann, mit 
dem man Umbenennungen vornehmen kann und mit dem man 
auch eine externe Dokumentation eines Programms in klei¬ 
nem Umfang anlegen kann. 
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Dieses Paket heißt APPLE-DOC; das Copyright liegt 
bei Roger Wagner und der Firma Southwestern Data 
Systems in Kalifornien, USA. Es besteht aus 3 Teilen: 
VARDOC, LINEDOC und REPLACE. Drei Textfiles mit den 
genannten Namen können jeweils mit EXEC gestartet 
werden. Diese EXEC-files leisten nun zunächst einmal 
die Sicherung des zu bearbeitenden Programms. 

Die Speicherstellen 103 und 104 enthalten die Adresse 
des Programmbeginns und die Stellen 175 und 176 die¬ 
jenige des Programmendes. Wird nun der Inhalt von 103 
und 104 erhöht auf einen Wert größer als die Adresse 
des Programmendes, so ist das ursprüngliche Programm 
gesichert. Nun kann das eigentlich ausführende Pro¬ 
gramm geladen werden. Es sind dies die drei APPLESOFT- 
Programme VRF, LRF und RPL, von denen jeweils eins 
durch einen der drei genannten EXEC-files geladen und 
gestartet wird. Nach Abschluß der Analysen bzw. Ände¬ 
rungen können die alten Werte der genannten 4 Spei¬ 
cherstellen wiederhergestellt werden, da sie in den 
Stellen 1912 bis 1915 zwischengespeichert worden sind 
durch die Anweisungen in den jeweiligen EXEC-files. 
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7.3.1 Variablenkontrolle 

Nach EXEC VARDOC ist die Neubelegung der oben genannten 
Speicherstellen erfolgt, die Sicherung ihrer Ursprungs¬ 
werte und der Start des APPLESOFT-Programms VRF, das 
zunächst den Programmtitel mit Copyright auf dem Bild¬ 
schirm anzeigt, danach einige Erläuterungen gibt und 
nach dem zu untersuchenden Programmbereich fragt. 

Als Voreinstellung werden Anfang und Ende des Programms 
angenommen. Es folgt die Frage nach dem Namen des un¬ 
tersuchten Programms. Zu diesem Zeitpunkt ist die ge¬ 
wünschte Tabelle erstellt und durch Herabsetzen von 
HIMEM gegen Überschreiben gesichert worden. 

Nach der Frage, ob der Drucker eingeschaltet werden 
soll, folgt die Präsentation des Ergebnisses: Eine Li¬ 
ste aller im Programm vorkommenden Variablennamen mit 
den Zeilennummern, in denen sie auftreten. 

Nachfolgendes Beispiel stellt die Variablentabelle dar 
des in Abschnitt 2 schon eingeführten Programms zur 
Durchschnittsberechnung in seiner erweiterten Form . 
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X 3^ 

3^ DEMO ^ARDOC 3^ 

X 3^ 

3^ —>TABLE OF WRIABLES<— 3^ 

X 3^ 


3(3^3^3(3^3^3^3(3^3^3^3(3^3(3(3^3(3^3^3^363^3CX3^3C3^3C3(3( 


A 

100 100 


A^ 

20 

100 

100 

100 

100 

100 110 

1 10 

Hl 

20 

110 

120 


I 

50 

50 

50 


N 

30 

50 

60 60 


Q 

120 




S 

50 

50 

60 


X 

40 

50 




END OF 'JAR. LIST 
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Danach kehrt das Proqrairun zu seinem Menü zuriick 


DO YOU NANT TO: <1) 
< 2 ) 

(3) 

(4) 
<5) 
( 6 ) 


RETURN TO PROGRAM 
REGIEN LIST AGAIN 
NEW ANALYSIS 
ENTER DESCRIPTORS 
SAL^E TO DISK 
GET PROM DISK 


Die Option 1 bewirkt die Rückkehr zum bearbeiteten 
Programm, also die Beendigung von VARDOC mit Rück¬ 
setzung der Speicherstellen 103/104 und 175/176 auf 
die ursprünglichen Werte und die HeraufSetzung von 
HIMEM , d.h. Veränderung der Speicherstellen 115/ 
116. 

Option 2 gibt es in 3 Versionen: Die Eingabe von 2 
führt zu derselben Bildschirmanzeige wie oben, er¬ 
neut mit der Möglichkeit einer Druckerausgabe. 

Die Eingabe von '2-*' führt zu einer verkürzten Li¬ 
ste, die nur die Variablennamen - ohne zugehörige 
Zeilenniimmern - enthält; 
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3( 

X 

X 


—>TABLE OF UARIABLES< — 


DEMO UARDOC 


X 

X 




A A^ H1 I N Q S X 

END OF UAR. LIST 

Die Eingabe von '2^*' soll hier noch nicht demon¬ 
striert werden, aber auch dies ist möglich. 

Option 3 löscht die alte Variablenliste, es ist 
möglich, ein weiteres Programm zu analysieren. 

Die Optionen 4-6 sind besonders geeignet für die 
Dokumentation eines Programms. Option 4 ermöglicht 
die Eingabe von kurzen Erläuterungen zu den Variab¬ 
lennamen. In diesem Modus bedeutet RETURN statt 
einer Eingabe, daß die alte Beschreibung erhalten 
bleibt, wenn eine vorhanden war. Durch *L' kann die 
Liste der Zeilennummern dieser Variablen abgerufen 
werden. Durch '/' wird eine alte Bezeichnung ersatz¬ 
los gelöscht. Neue Eingaben ersetzen alte Bezeich¬ 
nungen. Durch 'X' kann die Eingabe vor Erreichen des 
Endes der Variablenliste abgebrochen werden. 
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Durch Option 5 können die Variablenbezeichnungen auf 
die Diskette geschrieben werden in ein Textfile, des 
sen Name aus dem eingegebenen Programmnamen und dem 
Zusatz VFILE besteht. 

Durch Option 6 kann ein entsprechendes Textfile einge 
lesen werden. 


Nach Aufruf der Option 4 kehrt das Programm ebenfalls 
zu dem bekannten Menü zurück. Die 3 Versionen der 
Option 2 bewirken jetzt - nach Eingabe von Variablen 
bezeichnungen - folgende Bildschirmanzeigen: 


112" . X X 

X DEMO OARDOC X 

^ —>TABLE OF OARIABLES<— X 


A - LAENGE DES TEXTES 
100 100 

A^ - AUSGABETEXT 
20 100 100 100 110 110 110 120 

- HILFSSTRING AUS 40 BLANKS 
100 100 110 110 

Hl - NUMMER DER AUSGABEZEILE 
20 110 120 


I - ZAEHLER FUER EINGABE D. WERTE 
50 50 50 

N - ANZAHL DER WERTE 
30 50 60 60 

Q - SCHLEIFENINDEX 
120 


S - SUMME DER WERTE 
50 50 60 

X - WERT 
40 50 


END OF OAR. LIST 
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"2*" ; Dies hat denselben Effekt wie vorher. 

" 2 **" ; 


X DEMO VARDOC 

X —>TABLE OF UARIABLES< — 

X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


A - LAENGE DEG TEXTES 

A^ - AUSGABETEXT 

- HILFSSTRING AUS 40 BLANKS . 

Hl - NUMMER DER AUSGABEZEILE 

I - ZAEHLER FUER EINGABE D. WERTE 

N - ANZAHL DER WERTE 

Q - SCHLEIFENINDEX 

S - SUMME DER WERTE 

X - WERT 


END OF L»AR. LIST 


>K >K >K >K 
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7.3.2 Kontrolle der Sprungadressen 

Nach EXEC LINEDOC geschieht das Gleiche wie bei 
VARDOC: Sicherung des Programms, Laden und Star¬ 
ten des APPLESOFT-Programms LRF, das einen Titel 
auf dem Bildschirm anzeigt, nach dem zu untersu¬ 
chenden Programmabschnitt fragt, nach dem Namen des 
Programms und danach, ob der Drucker eingeschaltet 
werden soll. 

Es wird eine Tabelle aller Zeilennummern angelegt, 
die als Sprungadressen im Programm auftauchen, und 
der jeweils zugehörigen Zeilen, aus denen die Sprung¬ 
befehle erfolgen. 

Für das schon bekannte Beispiel der Durchschnittsbe¬ 
rechnung sieht die Tabelle so aus: 


X DEMO LINEDOC ^ 

X —>TABLE OF LN# XREFS<— ^ 

^ i ^ 




40 

50 

100 

20 

110 
130 


END OF LN# LIST 
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Auf dem Bildschirm sind die Sprungadressen (60, 100/ 
110) nicht nur eingerückt/ sondern auch invers ge¬ 
schrieben, zur Unterscheidung von den aufrufenden 
Zeilen. Das Menü von LINEDOC sieht genauso aus wie 
das von VARDOC, Die Optionen bewirken genau das ent¬ 
sprechende: 


DO YOU NANT TO: <1) 
( 2 ) 
<3) 
< 4 ) 
<5> 
( 6 ) 


RETURN TO PROGRAM 
REOIEN LIST AGAIN 
NEN ANALYSIS 
ENTER DESCRIPTORS 
SAOE TO DISK 
GET PROM DISK 


Auch hier gibt es Option 2 in den schon besprochenen 
3 Versionen, die nach Abruf von Option 4 folgende 
Bildschirmanzeigen bewirken: 


II2 •• • 


^ DEMO LINEDOC X 

3( —>TABLE OF LN# XREFS<— 




40 - EINGABE OON WERTEN 
50 

100 - UNTERPROGRAMM LAUFZEILE 

20 


110 - SCHLEIFENBEGINN FUER AUSDRUCK 

130 


END OF LN# LIST 
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5( DEMO LINEDOC 

X X 

X —>TABLE OF LN# XREFS<— X 




40 100 110 

END OF LN# LIST 


" 2 »#" ; 


yi X 
3( DEMO LINEDOC X 
X X 
X —>TABLE OF LN# XREFS<— X 
^ 




40 - EINGABE L>ON WERTEN 

100 - UNTERPROGRAMM LAUFZEILE 

110 - SCHLEIFENBEGINN FUER AUSDRUCK 


END OF LN# LIST 
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7.3.3 Änderungen 

Als Folge der Analysen mit Hilfe von VARDOC und 
LINEDOC könnte sich die Notwendigkeit von Änderun¬ 
gen innerhalb eines Programms herausgestellt haben. 

Zu diesem Zweck wird nun das dritte Programm im 
Paket APPLE-DOC eingesetzt. Durch EXEC REPLACE wird 
es initialisiert. Bevor das Programm RPL gestartet 
wird, erfolgt zunächst wie vorher die Sicherung des 
Ursprungsprogramms durch die Neubelegung der Speicher¬ 
stellen 103/104. Dabei wird aber zusätzlich ein Puffer 
berücksichtigt, dessen Größe der Benutzer angeben kann 
in Einheiten von je 256 bytes. Dies ist notwendig, da 
durch die Änderungen das Programm möglicherweise län¬ 
ger wird, wenn z.B. die Variable A im gesamten Pro¬ 
gramm den neuen Namen Al erhält. Ein weiterer Unter¬ 
schied im Ablauf zu den ersten beiden Programmen ist 
der, daß nach dem Programmtitel als erstes das Menu 
erscheint; es enthält 6 pptionen: 


DO YOU WANT TO: 


<1) REPLACE A VARIABLE/# 

<2) REPLACE A LITERAL 

<3> TRUNCATE ^ REPLACE A LITERAL 

<4) DOCUMENT A LITERAL 

(5) LIST A LINE 

<6) RETURN TO PROGRAM 
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Option 6 leistet ähnliches wie die Option 1 in den 
beiden vorigen Menüs, nämlich die "Freigabe" des 
ürsprungsprogramms. Mit Option 5 können Teile des 
Programms gelistet werden, wenn die vorzunehmenden 
Änderungen noch nicht klar sind. 

Mit Option 1 können Variablennamen oder Sprungadres¬ 
sen ausgetauscht werden. Nach Eingabe von '1* er¬ 
folgt zunächst die Frage nach dem interessierenden 
Programmbereich. 

Die beiden nächsten Eingaben beziehen sich auf Variab¬ 
lennamen oder Sprungadressen, und zwar auf deren "alte" 
und "neue" Werte, danach wird die Frage gestellt, ob 
der alte \j7ert im gesamten Programm oder nur in einzel¬ 
nen Zeilen ersetzt werden soll: 


WHAT CHARAS TO REPLACE?A^ 

WHAT CHAR'S Tp PUT THERE?B^ 

ALL OR SOME? (A/S):A 

Durch diese Eingaben wird das Programm zur Durch¬ 
schnittsberechnung wie folgt verändert: 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT ; HTAB <9); PRINT "R.PRUST / W.^OSS 1984": 
PRINT 

10 HTAB 7: PRINT "BERECHNUNG DES DURCHSCHNITTS" 

20 B% = "DRUECKEN SIE IRGENDEINE TASTE":H1 = 20: GOSUB 100 
30 INPUT "ANZAHL DER WERTE“;N 
40 INPUT "WERT";X 


50 S = S + X;I = 
60 HOME : UTAB 
/ N 

70 END 
100 H^ = " 

<B^):B^ = B^ + 
110 H^ = LEFT^ 
L^TAB (Hl): CALL 
120 UTAB (Hl) : 


I + 1: IF I < N THEN 40 
10: PRINT "DURCHSCHNITT DER ";N;" WERTE; ";S 


" :A = LEN 


RIGHTS (H^,40 - A) 

(B^,1):B^ = RIGHTS (B^,39) + H^: INUERSE : 

- 958 

PRINT LEFT^ (B^,40): FOR Q = 1 TO 150: NEXT 


130 IF PEEK ( - 16384) < 128 THEN 110 

140 NORMAL 

150 HOME : RETURN 


Im gesamten Programm wird die Variable durch 
ersetzt. 


Wird auf die dritte Frage "ALL OR SOME?" mit 'S' 
geantwortet, so wird der Benutzer zu jeder Ersetzung 
zunächst befragt und es' wird nur ersetzt, wenn er es 
wünscht; dieses Vorgehen wird sinnvoll sein bei irr¬ 
tümlich aufgetretenen Doppelbenennungen, wie sie etwa 
nach dem Mischen zweier verschiedener Programme denk¬ 
bar sind. 

Es muß noch darauf hingewiesen werden, daß Arraynamen 
durch eine dem eigentlichen Namen nachfolgende linke 
Klammer kenntlich gemacht werden müssen. 

Statt eines Variablennamens kann durch die Option 1 
auch eine Sprungadresse durch eine andere ersetzt wer¬ 
den, wie dies etwa nach der Zusammenfassung von Zei¬ 
len oder nach dem Löschen von REM-Statements nötig 
werden kann. 
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Option 2 ermöglicht es, Strings im Programm suchen und 
ersetzen zu lassen. Nach dem Erfragen des interessie¬ 
renden Programmbereichs muß zunächst die Frage "ALL 
OR SOME?" beantwortet werden. Dann muß hinter der Zei¬ 
lennummer 740 der "alte" zu ersetzende String einge¬ 
geben werden, hinter der Zeilennummer 750 der "neue". 
Der Programmablauf bleibt unterbrochen bis das Kom¬ 
mando 


GOTO 760 

über die Tastatur eingetippt wird. Als Beispiel wurde 
in 740 DURCHSCHNITT eingegeben und in 750 MITTELWERT; 
mit der Option ALL erhält man folgendes Listing (die 
Zeilen 30 und 80 sind geändert worden): 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB C9): PRINT "R.PRUST / W.OOSS 1984"; 
PRINT 

10 HTAB 7: PRINT "BERECHNUNG DES MITTELNERTS" 

20 B^ = "DRUECKEN SIE IRGENDEINE TASTE":H1 = 20: GOSUB 100 
30 INPUT "ANZAHL DER NERTE";N 
40 INPUT "WERT";X 

50S=S+X;I=I+1:IFI<N THEN 40 

60 HOME : OTAB 10: PRINT "MITTELWERT DER ";N;" WERTE; ";S / 
N 

70 END 

100 H^ = " ";A = LEN 

<B*);B^ = B^ + RIGHTS <H^,40 - A) 

110 H$ = LEFT$ (B^,1):B$ = RIGHT$ <B^,39) + H$; INOERSE : 
OTAB (Hl): CALL — 958 

120 OTAB (Hl): PRINT LEFT^ (B^,40): FOR Q = 1 TO 150: NEXT 

130 IF PEEK ( - 16384) < 128 THEN 110 

140 NORMAL 

150 HOME : RETURN 
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Option 3 ist nützlich zum Entfernen von REM-Zeilen, 
wenn bei sehr großen Programmen der Speicherplatz 
knapp wird; es wird nicht nur der in Zeile 740 an¬ 
gegebene String ersetzt, sondern auch alles was rechts 
von ihm in derselben Zeile steht. 

Die Option ist automatisch 'SOME’ 

Beispiel: 

740 REM 
750 : 

Es wird auf Wunsch nicht nur der Befehl 'REM* durch 
ersetzt, sondern auch der rechts von REM stehen¬ 
de Kommentar "abgeschnitten" (truncated). 

Die Option 4 schließlich macht es möglich, vor etwai¬ 
gen Änderungen zunächst eine Liste aller Zeilen an¬ 
fertigen zu lassen, in denen ein bestimmter String 
auftaucht. Dabei kann auch der Drucker nach Bedarf 
wieder eingeschaltet werden. 

Damit sind die Möglichkeiten des Programmpakets APPLE- 
DOC im wesentlichen wohl erläutert worden. Nur bei 
sehr umfangreichen Programmen könnte der Einsatz dieser 
Hilfsroutinen problematisch werden, da natürlich für 
die Routinen und die erstellten Tabellen zusätzlich 
Platz benötigt wird. Die Programme benötigen ca. 6 Kbyte; 
der Platzbedarf der Tabellen kann nicht allgemein an¬ 
gegeben werden, da diese Größe natürlich vom jeweils 
untersuchten Programm abhängt. Sollte es Platzprobleme 
geben, können diese auf 2 Arten gelöst werden: 

1. Kürzen der Hilfsprogramme auf die unbedingt 
notwendige Größe (etwa 3.3K bei VRF). 

2. Löschen von Teilen des Ursprungsprogramms 
aus dem Arbeitsspeicher, die dann in einem 
oder mehreren weiteren Läufen analysiert 
werden könnten. 
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7.4 Initialisierung 

In Kapitel 2 wurde schon kurz erläutert, daß jede 
fabrikneue Diskette zunächst initialisiert werden 
muß; dies erfolgt durch den Befehl 

INIT name 

Bei Durchführung dieses Befehls geschieht dreierlei; 

1. Die zunächst völlig leere Diskette wird 
"formatiert", d.h. sie wird eingeteilt in 
Spuren (das sind konzentrische Ringe um 
das mittlere Loch; sie werden auch tracks 
genannt) und Sektoren (das sind Abschnitte 
in den einzelnen Spuren). 

Die Formatierung des APPLE II erzeugt 35 
Spuren zu je 16 Sektoren, jeder Sektor um¬ 
faßt 256 bytes. Die Spuren sind hexadezimal 
von außen nach innen durchnumeriert durch $0 
bis $22, die Sektoren jeweils von $0 bis 
$F. 

2. DOS wird auf die Diskette geschrieben, und 
zwar in die tracks $0 bis $2. Die Spur $^^ 
wird für das Inhaltsverzeichnis der Diskette 
eingerichtet. 

3. Das Begrüßungsprogramm wird unter dem hinter 
INIT angegebenen Namen abgespeichert. 
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Nach der Initialisierung stehen dem Benutzer somit 
31 Spuren zu 16 Sektoren zu je 256 bytes zur Verfü¬ 
gung, d.h. Speicherplatz von insgesamt 124K, abzüg¬ 
lich des meist recht geringen Platzes, den das Be¬ 
grüßungsprogramm benötigt. Dieses kann sogar nur aus 
einer BASIC-Zeile mit einem einzigen Befehl bestehen. 

Es ist jedoch durchaus sinnvoll, das Begrüßungspro¬ 
gramm etwas umfangreicher zu programmieren. 

Zwar hat es zunächst im wesentlichen nur die Aufgabe, 
die Diskette "booten" zu können, d.h. auch mit einer 
anderen als der APPLE-Masterdiskette DOS laden zu 
können, doch können ihm auch andere Aufgaben zugewie¬ 
sen werden. Dieser Abschnitt soll dazu einige Anre¬ 
gungen liefern. Der Leser kann dann seine ganz persön¬ 
lichen Wünsche für die Disketteninitialisierung sicher 
leicht verwirklichen. Im folgenden soll das Begrüßungs¬ 
programm immer den Namen HELLO erhalten. Dieser Name 
ist weit verbreitet, er findet sich z.B. auch auf der 
Systemdiskette. 

Eine erste Aufgabe von HELLO kann darin bestehen, In¬ 
formationen über die eingelegte Diskette zu liefern, 
d.h. wann wurde sie initialisiert, welche Nummer oder 
welchen Namen trägt sie und welchen Inhalt hat sie. 

Man kann etwa so Vorgehen, daß man folgendes Programm 
mit den Namen INITIAL auf einer Diskette abspeichert: 
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HTAB <9) 
; PRINT : 


PRINT "APPLE-TIPS UND TRICKS" 
HTAB (9); PRINT "R.PRUST / W.L»OSS 


1984": 


3 HOME ; 

4 PRINT 
PRINT 

5 PRINT "DIESES PROGRAMM DIENT DER INITIALISIERUNG. DAZU MUSS 
DIE ZEILE 5 GELOESCHT NERDEN UND DIE GITTER IN ZEILE 20 MUESSEN 
ERSETZT NERDEN.": END 

10 TEXT ! FOR I = 1 TO 41: PRINT "X";: NEXT : GOSUB 999: HTAB 
8: PRINT "R. PRUST / N. L^OSS" ; : GOSUB 999 

20 HTAB 8: PRINT "DISKETTE NR. : GOSUB 999: HTAB 8: PRINT 

"INITIALISIERT AM ; 

30 GOSUB 999: HTAB 40: FOR I = 1 TO 41: 

PRINT : FOR I = 1 TO 2500: NEXT : HOME 
40 »vH-AB 2: PRINT "CATALOG": END 

999 HTAB 40: PRINT "XX";: HTAB 40: PRINT "XX";; 


PRINT "X";: NEXT 


RETURN 


Wenn man dieses Programm startet, erscheint fol¬ 
gender Bildschirmausdruck: 


APPLE-TIPS UND TRICKS 


R.PRUST / N.L»OSS 1984 

DIESES PROGRAMM DIENT DER INITIALISIERUN 
G. DAZU MUSS DIE ZEILE 5 GELOESCHT NERDE 
N UND DIE GITTER IN ZEILE 20 MUESSEN ERS 
ETZT NERDEN. 
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Nachdem man die Zeile 5 gelöscht hat, müßte man - 
am einfachsten mit Hilfe des PROGRAM LINE EDITOR - 
die Zeile 20 ändern. Ansonsten sieht das Programm 
so aus: 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / W.OOSS 1984": 
PRINT 

10 TEXT ^ FOR I = 1 TO 41: PRINT "M";: NEXT : GOSUB 999: HTAB 
8: PRINT "R. PRUST / W. OOSS";: GOSUB 999 

20 HTAB 8: PRINT "DISKETTE NR. : GOSUB 999: HTAB 8: PRINT 

"INITIALISIERT AM ; 

30 GOSUB 999: HTAB 40: FOR I = 1 TO 41: PRINT "X";: NEXT : 
PRINT : FOR I = 1 TO 2500: NEXT : HOME 
40 L'TAB 2: PRINT "CATALOG": END 

999 HTAB 40: PRINT "XX";: HTAB 40: PRINT "XX";: RETURN 


Die Zeilen 10 bis 30 bewirken zunächst eine Bild¬ 
schirmanzeige : 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

X 

X 

X 

X 

X 

X 

X 

X 


DISKETTE NR. ## 


R. PRUST / W. OOSS 


INITIALISIERT AM 


X 

X 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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Dann folgt eine leere FOR...NEXT-Schleife der Länge 
2500, die dafür sorgt, daß dieser Ausdruck eine ge¬ 
wisse Zeit auf dem Schirm stehen bleibt. Ohne Ein¬ 
griff des Benutzers geht es dann im Ablauf weiter, 
zunächst mit dem HOME-Befehl am Ende von Zeile 30. 
Durch Zeile 40 wird nun programmgesteuert der Cata- 
log der Diskette abgerufen. Es muß darauf hingewie¬ 
sen werden, daß in dem String vor dem "C" von CATALOG 
ein CTRL-D eingegeben wurde, das aber im Druckerli- 
sting natürlich nicht sichtbar ist. 

Der Befehl hätte auch die Form 

PRINT CHR0(4);"CATALOG" 

haben können. Die Zeile 999 ist ein Unterprogramm, das 
für die Sternchen am linken und rechten Rand des Bild¬ 
schirms verantwortlich ist. 

Jeder Benutzer kann natürlich eine andere Bildschirm¬ 
anzeige für wünschenswert halten. Es scheint jedoch 
sinnvoll, da es Zeit einspart, ein Initialisierungs¬ 
programm zur Verfügung zu haben, in dem nur einige 
wenige Änderungen zu machen sind für die aktuell zu 
initialisierende Diskette. Falls das entsprechende 
Programm INITIAL sehr viele aktuelle Informationen 
benötigt - nicht nur das Datum und eine Zahl - wäre 
es vielleicht zweckmäßig, ein Programm zu erstellen, 
das alle erforderlichen Eingaben abfragt und dann 
seinerseits ein Programm schreibt, nämlich ein Text¬ 
file INITIAL, das mit EXEC in den Speicher geladen 
werden könnte. Das Vorgehen sei am folgenden Beispiel 
demonstriert: 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / N.L»OSS 1984": 
PRINT 

10 REM PROGRAMM ZUR ERSTELLUNG EINES 
20 REM INITIALISIERUNGSPROGRAMMS 

30 INPUT "DATUM (TT.MM.JJJJ) ";A^; IF MID^ <A^,3,1) < > "." 

OR MID^ <A^,6,1) < > THEN 30 

40 INPUT "NUMMER DER DISKETTE "jN^ 

50 D$ = CHR^ <4) 

60 PRINT D^;"OPEN INITIAL" 

70 PRINT D^;"NRITE INITIAL" 

80 PRINT "10 TEXT:F0RI=1T041 ;?" ; CHR^ <34);"3("; CHR^ <34);";; 
NEXT : G0SUB999 :HTAB 8 :? "; CHR^ <34);"RENATE PRUST"; CHR^ 
(34);"; : GOSUB 999" 

90 PRINT "20 HTAB 8 : ?"; CHR^ <34);"DISKETTE NR. ";N^; CHR^ 
(34);"; : GOSUB 999 : HTAB 8 : ? CHR^ <34);"INITIALISIERT 


AM " 
100 

;A^; CHR^ <34);";" 
PRINT "30 GOSUB 999 

: HTAB 40 

: FOR 1=1 TO 41 

: ? "; CHR^ 

(34) 

;"3^" ; CHR^ <34) ; : 

NEXT 

: ? : 

FOR 1=1 TO 2500 

: NEXT : 

HOME 
1 10 

H 

PRINT "40 UTAB2:?"; 

CHR$ (34); 

"CATALOG"; CHR^ 

<34);":END" 

120 

PRINT "999 HTAB 40 ! 


CHR^ 

<34);"X3("; CHR$ 

<34);"; 


: HTAB 40 : ? "; CHR^ <34);"3^)^"; CHR^ <34);"; : RETURN" 
130 PRINT D^;"CLOSE INITIAL" 

140 END 


Das vorstehende Programm MAKE INITIAL erzeugt ein 
Textfile mit dem Namen INITIAL, so daß nach dem Kom¬ 
mando EXEC INITIAL die schon bekannten Zeilen 10- 
999 im Arbeitsspeicher zur Verfügung stehen - mit 
dem Unterschied, daß anstelle der "4^ "-Zeichen ein 
Datum und eine Diskettennummer nach Wunsch des Benut¬ 
zers eingesetzt wurden 
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Was leistet das Programm MAKE INITIAL im einzelnen? 
Programmbeschreibung 


Sätze 

Inhalt 

10- 20 

Erläuterung 

30 

Eingabe des aktuellen Datums im 
angegebenen Format als A0; 
kleine Fehlerabfangroutine 

40 

Eingabe der Diskettennummer als N0 

50 

Zuordnung von CTRL-D zu D0 

60 

Öffnen der Datei INITIAL 

70 

Anweisung^in die Datei zu schreiben 
- alle nachfolgenden PRINT-Befehle. 
werden an die Diskettenstation wei¬ 
tergeleitet 

80-120 

Die Zeilen 10-999 des erkannten Pro¬ 
gramms INITIAL werden als Text eines 
PRINT-Befehls auf die Diskette geschrie¬ 
ben. Dabei müssen die Anführungszei¬ 
chen, etwa um den Namen RENATE PRUST, 
durch ihre ASCII-Kennziffer dargestellt 
werden, d.h. durch CHR0(34). 

Weiter ist zu beachten, daß bei Ausfüh¬ 
rung des Programms MAKE INITIAL die Va¬ 
riablen N{i5 und durch ihre zuvor ein¬ 

gegebenen Werte (Zeilen 30 und 40)er¬ 
setzt werden. 

130 

Die Datei wird geschlossen 

140 

Ende des Programms 
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Das gewünschte Begrüßungsprogramm mit den aktuellen 
Informationen über die Diskette steht nach folgen¬ 
den Kommandos zur Verfügung, wenn MAKE INITIAL sich 
auf einer Diskette befindet: 

RUN MAKE INITIAL 
NEW 

EXEC INITIAL 

Durch LIST kann dies kontrolliert werden. 

Der Befehl NEW ist notwendig, da durch EXEC im Gegen¬ 
satz zu RUN das alte Programm nicht gelöscht wird. 

Nur Zeilen des alten Programms, deren Nummern mit 
Zeilennummern des neuen Programms übereinstimmen, wer¬ 
den überschrieben, alle anderen bleiben erhalten. 

Ohne NEW entstünde ein "Programmsalat" aus MAKE INITIAL 
und INITIAL, da das zweite Programm kürzer ist als das 
erste. 


Zur eigenen Bequemlichkeit kann man nun das Programm 
MAKE INITIAL noch so erweitern, daß der Befehl 

RUN MAKE INITIAL 


allein genügt, um das gewünschte Begrüßungsprogramm 
zwecks Initialisierung einer neuen Diskette zur Verfü¬ 
gung zu haben. 
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3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB (9): PRINT "R.PRUST / W.L»OSS 1984"; 
PRINT 

10 REM PROGRAMM ZUR ERSTELLUNG EINES 
20 REM INITIALISIERUNGSPROGRAMMS 

30 INPUT "DATUM (TT.MM.JJJJ) ";A^; IF MID^ <A^,3,1) < > 

OR MID^ <A^,6,1) < > "." THEN 30 

40 INPUT "NUMMER DER DISKETTE ";N^ 

50 D^ = CHR^ (4) 

60 PRINT D^;"OPEN INITIAL" 

70 PRINT D^;"NRITE INITIAL" 

80 PRINT "10 TEXT;F0RI=1T041;?"; CHR^ <34);"X"; CHR^ (34);";; 
NEXT ; G0SUB999 ;HTAB 8 :? "; CHR^ (34);"RENATE PRUST"; CHR^ 
(34);"; ; GOSUB 999" 

90 PRINT "20 HTAB 8 ; ?"; CHR^ <34);"DISKETTE NR. ";N^; CHR^ 
(34);"; ; GOSUB 999 ; HTAB 8 ; ? "; CHR^ (34);"INITIALISIERT 
AM ";A^; CHR^ (34);";" 

100 PRINT "30 GOSUB 9^9 ; HTAB 40 ; FOR 1=1 TO 41 ; ? "; CHR^ 
(34) CHR^ (34);"; ; NEXT ; ? ; FOR 1=1 TO 2500; NEXT ; 

HOME" 

110 PRINT "40 UTAB2;?"; CHR^ (34);"CATALOG"; CHR^ (34);";END" 
120 PRINT "999 HTAB 40 ; ? "; CHR^ (34) ;")()("; CHR^ (34);"; 

; HTAB 40 ; ? "; CHR^ (34);"X)("; CHR^ (34);"; ; RETURN" 

130 PRINT D^;"CLOSE INITIAL" 

140 PRINT D^;"EXEC INITIAL" 

150 DEL 50,150 


Die Zeilen 10 bis 120 sind identisch mit der obigen 
Version des Programms. Durch Zeile 130 werden aber 
nun programmgesteuert die soeben geschriebenen Zei¬ 
len des Textfiles INITIAL (10-40,999) geladen. 
Anschließend müssen die nun unnötigen Zeilen des al¬ 
ten "MAKE INITIAL" gelöscht werden. Dies geschieht 
durch die Zeile 140. 
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Nach einem DEL-Befehl im Programm wird die Programm¬ 
ausführung beendet, so daß auf ein zusätzliches END 
verzichtet werden kann. 

Nach RUN MAKE INITIAL kann man sich durch LIST 
davon überzeugen, daß nur die gewünschten Zeilen im 
Arbeitsspeicher stehen: 


3 HOME : HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB (9): PRINT “R.PRUST / W.UOSS 1984”: 
PRINT 

10 TEXT : FÜR I = 1 TO 41: PRINT "X";: NEXT ; 60SUB 999; HTAB 
8; PRINT "R. PRUST / W. L«OSS” ; : GOSUB 999 

20 HTAB 8; PRINT "DISKETTE NR. 17”;; GOSUB 999; HTAB 8; PRINT 
"INITIALISIERT'A|^ 11.05.1984”; 

30 GOSUB 999: HTAB 40; FOR I = 1 TO 41; PRINT "X";; NEXT ; 
PRINT : FOR I = 1 TO 2500; NEXT ; HOME 
40 <v^TAB 2; PRINT "CATALOG”; END 

999 HTAB 40: PRINT "XX”;; HTAB 40; PRINT "XX”;: RETURN 


Über solche Bildschirmanzeigen hinaus kann man aber 
noch anderes in sein Begrüßungsprogramm aufnehmen. 
Sehr sinnvoll erscheint uns beispielsweise die Auf¬ 
nahme des Editors aus Kapitel 6 oder anderer Hilfs¬ 
routinen. Dazu geht man folgendermaßen vor; 
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In den leeren Arbeitsspeicher wird der Editor gela¬ 
den durch 


LOAD PROGRAM LINE EDITOR 


Die überflüssigen Zeilen werden gelöscht durch 
DEL 10,30 

Nun kann man das Programm INITIAL dazuladen, entwe¬ 
der durch EXEC INITIAL, wenn der Weg über das Text¬ 
file gewählt wurde, oder mit Hilfe von APA durch 

&H 

LOAD INITIAL 
&M 


In beiden Fällen sieht das Programm dann so aus; 


3 HOME : HTAB <9) ; PRINT • “APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9); PRINT "R.PRUST / W.OOSS 1984": 
PRINT 

10 TEXT : FOR I = 1 TO 41 : PRINT " : NEXT ; GOSUB 999; HTAB 

8; PRINT "R. PRUST / N. OOSS";; GOSUB 999 

20 HTAB 8; PRINT "DISKETTE NR. 17";; GOSUB 999; HTAB 8: PRINT 
"INITIALISIERT AM 11.05.1984"; 

30 GOSUB 999: HTAB 40: FOR I = 1 TO 41; PRINT "X";: NEXT : 
PRINT : FOR I = 1 TO 2500; NEXT : HOME 
40 OTAB 2: PRINT "CATALOG"; END 

999 HTAB 40: PRINT HTAB 40; PRINT RETURN 

63999 CALL PEEK <175) + PEEK <176) X 256 - 1822; RETURN ; 
REM " 
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Nun wird das END in Zeile 40 gelöscht und eine neue 
Zeile 50 eingefügt: 


3 HOME ; HTAB (9): PRINT “APPLE-TIPS UND TRICKS“ 

4 PRINT ; PRINT ; HTAB <9): PRINT "R.PRUST / W.UOSS 1984“: 
PRINT 

10 TEXT : FOR I = 1 TO 41: PRINT NEXT : 60SUB 999: HTAB 

8: PRINT "R. PRUST / N. UOSS“;: GOSUB 999 

20 HTAB 8: PRINT “DISKETTE NR. 17";: GOSUB 999: HTAB 8: PRINT 
“INITIALISIERT AM 11.05.1984“; 

30 GOSUB 999: HTAB 40: FOR I = 1 TO 41: PRINT "X“;: NEXT : 
PRINT : FOR I = 1 TO 2500: NEXT : HOME 
40 L'TAB 2: PRINT “CATALOG“ 

50 GOSUB 63999: PRINT “FP“ 

999 HTAB 40: PRINT HTAB 40: PRINT “3(X“;: RETURN 

63999 CALL PEEK (175) + PEEK <176) 256 - 1822: RETURN : 

REM “ 
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Nach dem Booten einer Diskette mit diesem Begrüßungs¬ 
programm HELLO steht der EDITOR ebenfalls zur Verfü¬ 
gung. 
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Der Befehl PRINT "FP" in Zeile 50 beendet das 
Programm, er ersetzt das NEW und führt zu APPLESOFT¬ 
BAS IC zurück. 

Wenn man alle seine Disketten mit diesem oder einem 
ähnlichen HELLO initialisiert hat, hat man sofort 
nach dem Einschalten die Möglichkeit, mit dem Editor 
zu arbeiten. Das ist bequemer als das Laden zwischen¬ 
durch. Es soll aber noch einmal erwähnt werden, daß 
HIMEM, d.h. die größtmögliche von BASIC adressierbare 
Speicherstelle, dadurch auf einen kleineren Wert ge¬ 
setzt wird. Nach dem Booten von DOS und dem Editor 
stehen nur noch 36K Arbeitsspeicher zur Verfügung. 

Will man noch weitere Hilfsroutinen in HELLO einbauen, 
so ist auch das möglich, allerdings nicht ganz so 
einfach wie vorher. Als Beispiel soll APA herangezo¬ 
gen werden. 

Um dieses sehr nützliche Hilfsprogramm anwenden zu 
können, muß einfach der Befehl 

RUN LOADAPA 

gegeben werden. Außerdem werden aber von LOADAPA die 
Dateien RBOOT, RLOAD und APA angesprochen, die also 
ebenfalls auf derselben Diskette zur Verfügung stehen 
müssen. 
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Hat man zwei Laufwerke zur Verfügung, könnte man fol¬ 
gendermaßen Vorgehen: 

In das 2. Laufwerk kommt beim Booten durch PR#6 oder 
beim Einschalten des Rechners immer die Diskette mit 
dem DOS TOOL KIT, das auch die vier benötigten APA- 
files umfaßt. Im 1. Laufwerk liegt eine durch das 
nachstehende HELLO initialisierte Diskette: 


3 HOME : HTAB <?); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.OOSS 1984": 
PRINT 

10 TEXT ; FOR I = 1 TO 41 : PRINT "5^";: NEXT ; GOSUB 999; HTAB 
8: PRINT "R. PRUST / W. OOSS";; GOSUB 999 

20 HTAB 8: PRINT "DISKETTE NR. 17";; GOSUB 999; HTAB 8; PRINT 
"INITIALISIERT AM 11.05.1984"; 

30 GOSUB 999;^ HTAB 40; FOR I = 1 TO 41 ; PRINT "3f";; NEXT ; 
PRINT ; FOR I =" 1 TO 2500; NEXT : HOME 
40 OTAB 2; PRINT "CATALOG" 

50 GOSUB 63999; PRINT "RUN L0ADAPA,D2" 

999 HTAB 40; PRINT "XX";; HTAB 40; PRINT "XX";; RETURN 
63999 CALL PEEK <175) + PEEK <176) X 256 - 1822; RETURN ; 
REM " 
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Die PRINT-Befehle in den Zeilen 40 und 50 enthalten 
als erstes Zeichen ein CTRL-D, das im Druckerlisting 
nicht zu sehen ist. Beim Booten beginnen zunächst die 
bekannten Vorgänge: die Bildschirmanzeige über die 
Nummer der Diskette, der Catalog und das Starten des 
Editors. 

Zusätzlich wird aber in dieser Version von HELLO das 
Programm LOADAPA auf der Diskette im Laufwerk 2 ge¬ 
startet. 

Danach endet das Begrüßungsprogramm, im Speicher be¬ 
findet sich LOADAPA und der Laufwerkpointer steht 
auf 2. 

Will man dies vermeiden, könnte man LOADAPA abändern, 
und zwar die Zeile 330. Statt END sollte jetzt der 
CATALOG-Befehl für Drive 1 erfolgen und anschließend 
könnte durch 

DEL 10,360 

das Programm selbst gelöscht werden. 

Falls ein Fehler während des Ladens von APA aufge¬ 
treten ist, wird die Zeile 340 angesprungen. Dieser 
letzte Teil des Programms sollte also unverändert 
bleiben. Es sollte ein Neustart möglich sein, deshalb 
wird das END in Zeile 360 nicht durch DEL ersetzt: 
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3 HOME : HTAB <9): PRINT “APPLE-TIPS UND TRICKS“ 

4 PRINT ! PRINT ; HTAB < 9) : PRINT "R.PRUST / W.L^OSS 1984" 


PRINT 


180 

REM PROGRAM TO LOAD APA 

1 10 

HOME 


120 

ONERR 

GOTO 340 

130 

ADRS = 

0 

140 

PRINT 

CHR^ (4),"BL0AD RBOOT" 

150 

CALL 520; REM EXECUTE RBOOT 

160 

ADRS = 

USR (0),“APA" 

170 

REM 

BRING IN APA, ADRS=STARTING i 

180 

CALL ADRS; REM INITIALI2E APA 

190 

PRINT 

: PRINT 

200 

PRINT 

“S^RENUMBER <START> , < INO , <FI 

210 

PRINT 

"i^HOLD“ 

220 

PRINT 

"i^MERGE“ 

230 

PRINT 

"ftcLENGTH" 

240 

PRINT 

“a^COMPRESS" 

250 

PRINT 

"^SHOW" 

260 

PRINT 

"ftcNOSHOW" 

270 

PRINT 

“&.AUTO <START> ,<INC>" 

280 

PRINT 

“acMANUAL" 

290 

PRINT 

"Ä^XREF" 

300 

PRINT 

"i^KEYS" 

310 

PRINT 

: PRINT 

320 

POKE : 

216,0; REM ON ERR OFF 

330 

PRINT 

"CATAL0G,D1" 

335 

DEL 100,360 

340 

PRINT 

“UNABLE TO LOAD“ 

350 

POKE 

216,0: REM ON tRR OFF 

360 

END 



Die Zeilen 190 bis 310 zeigen alle APA-Befehle. 
Ist man mit ihnen vertraut, kann man diese Zeilen 
löschen. Dieses gekürzte LOADAPA kann man dann in 
das Begrüßungsprogramm einmischen, das jetzt so 
aussieht: 
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3 HOME : HTAB (9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / W.L>OSS 1984"; 
PRINT 

10 TEXT ! FOR I = 1 TO 41: PRINT NEXT ; 60SUB 999: HTAB 

8: PRINT "R. PRUST / N.L'OSS";: GOSUB 999 

20 HTAB 8: PRINT "DISKETTE NR. 17”;; GOSUB 999; HTAB 8: PRINT 
"INITIALISIERT AM 11.05.1984"; 

30 GOSUB 999; HTAB 40: FOR I = 1 TO 41 : PRINT "5(”;: NEXT : 

PRINT : FOR I = 1 TO 2500: NEXT : HOME 

50 GOSUB 63999 

100 REM PROGRAM TO LOAD APA 

110 HOME 

120 ONERR GOTO 220 
130 ADRS = 0 

140 PRINT CHR^ <4),"BL0AD RBOOT" 

150 CALL 520; REM EXECUTE RBOOT 
160 ADRS = USR (0),"APA" 

170 REM BRING IN APA, ADRS=STARTING ADDRESS 
180 CALL ADRS: REM INITIALIZE APA 
190 POKE 216,0: ^^EM ON ERR OFF 
200 PRINT "CATALOG,Dl" 

210 DEL 10,63999 

220 PRINT "UNABLE TO LOAD" 

230 POKE 216,0: REM ON ERR OFF 
240 END 

999 HTAB 40; PRINT "XX";; HTAB 40; PRINT "XX";; RETURN 
63999 CALL PEEK <175) + PEEK (176) X 256 - 1822: RETURN ; 
REM " ’ 
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Wichtig ist, daß immer zuerst der Editor gestartet 
werden muß durch GOSUB 63999, danach kann dann APA 
geladen werden. 

Hat man nur ein Laufwerk zur Verfügung, können die 
Laufwerksadressierungen Dl bzw. D2 in den Disketten¬ 
befehlen entfallen. 

Nach der Initialisierung einer Diskette durch eine der 
beiden letzten HELLO-Versionen müssen aber die Dateien 
APA, RBOOT und RLOAD auf die neue Diskette kopiert 
werden, da LOADAPA sie anspricht (genau gesagt, wird 
RLOAD von RBOOT aufgerufen). Dies kann mit dem File 
Developper von der Systemdiskette erfolgen durch 

BRUN FID 

Ob man nun APA oder eine andere Hilfsroutine sofort 
mit in das Begrüßungsprogramm einbaut - durch RUN oder 
durch Einmischen - wird davon abhängen, wie oft man 
solche Routinen benötigt. Der Arbeitsstil und die Auf¬ 
gabenstellungen des jeweiligen Benutzers sind also 
letztlich entscheidend für den Umfang des Begrüßungs¬ 
programms. Den Editor wird wohl jeder benötigen, da 
zumindest Tippfehler immer auftauchen. 

Alles andere hängt sehr von den Wünschen des Einzel¬ 
nen ab, so daß wir mit APA nur ein Demonstrationsbei¬ 
spiel vorstellen wollten, wie Initialisierungsprogram¬ 
me erweitert werden können. 
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Es ist ja auch zu bedenken, daß Speicherplatz verlo¬ 
ren geht, z.B. durch sofortiges Laden von APA, und 
zwar im Arbeitsspeicher und auf der Diskette. 

Wichtig ist aber auf jeden Fall, daß die Routinen 
miteinander verträglich sein müssen. Es muß mögli¬ 
cherweise - wie beim Editor und APA - auf die Reihen¬ 
folge beim Laden geachtet werden. 
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7.5 Bildschirmgestaltung 


Die Aufgaben der Bildschirmgestaltung ist meist 
kein sehr schwieriges Problem, aber sehr zeitauf¬ 
wendig. Aus diesem Grunde haben wir einige Anre¬ 
gungen zu diesem Bereich in das vorliegende Buch 
aufgenommen, durch die der Leser sich möglicher¬ 
weise manche zeitraubende Vorüberlegungen ersparen 
kann. 


7.5.1 Positionierung auf dem Bildschirm 

Die wichtigsten Befehle wurden schon genannt und sol¬ 
len hier im Zusammenhang noch einmal an Beispielen 
dargestellt werden. 

Zunächst sind dies die BASIC-Befehle 

HTAB und VTAB 

und die TAB-Funktion als Ergänzung des PRINT-Befehls. 
In den bisher vorgestellten Beispielen wurden diese 
Positionierungs-Statements schon verwendet. Deshalb 
soll hier nur an einem kleinen Programm ihre Wirkungs¬ 
weise aufgezeigt werden, insbesondere sollen dabei die 
Vorteile von HTAB und VTAB herausgestellt werden. 
Solche Cursorpositionierungs-Statements sind nicht auf 
allen Rechnern verfügbar; der APPLE bietet da schon 
einen gewissen Komfort. 
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3 

HOME ; 

4 

PRINT 

PRINT 

10 

HOME 

20 

PRINT 

30 

PRINT 

40 

PRINT 

50 

PRINT 

60 

PRINT 

70 

PRINT 

80 

END 


HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

PRINT : HTAB <9); PRINT "R.PRUST / N.UOSS 1984" 

PRINT TAB < 10)"DEMONSTRATIONSPROGRAM" 

TABC 6)"FUER DIE BILDSCHIRMGESTALTUNG" 

; PRINT : PRINT : PRINT ; PRINT 
TAB< 25)"EINGABE: INPUT "";A^ 

; PRINT ; PRINT 

"DIES SOLL ZUNAECHST GENUEGEN.": PRINT : PRINT : 
TAB< 8)"TSCHUESS"; TAB< 25)"BIS BALD" 


PRINT 


Für die horizontale Position auf dem Bildschirm wird 
TAB eingesetzt, die vertikale kann nur relativ zur 
aktuellen Position durch "leere" PRINT-Statements und 
nur nach unten bestimmt werden - ebenso wie TAB nur 
nach rechts Wirkung hat, wie etwa in Zeile 70. Ist 
dort z.B. der Wert für die zweite TAB-Funktion in der 
Zeile kleiner als der erste, so geschieht kein Sprung 
nach links, sondern das TAB wird ignoriert. 


Durch VTAB und HTAB können Zeilen und Spalten direkt 
angesteuert werden durch Angabe ihrer Nummer (1 bis 40 
bzw. 1 bis 24) und nicht nur von oben nach unten bzw. 
von links nach rechts. So kann die Benutzung von VTAB 
einige leere PRINT-Befehle ersetzen. 


3 HOME : HTAB 9: PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB 9: PRINT "R.PRUST / W.UOSS 1984": PRINT 


10 HOME : HTAB 10: PRINT "DEMONSTRATIONSPROGRAM" 

20 HTAB 6: PRINT "FUER DIE BILDSCHIRMGESTALTUNG" 

40 L^TAB 8: HTAB 25; INPUT "EINGABE; " ;A^ 

60 L»TAB 12; PRINT "DIES SOLL ZUNAECHST GENUEGEN." 

70 k)TAB 16; HTAB 8; PRINT "TSCHUESS"; TABC 25) "BIS BALD" 
80 END 
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An Zeile 70 erkennt man, daß HTAB und TAB auch zu¬ 
sammen für eine Zeile verwendet werden können. 

Die beiden folgenden Beispielprogramme erklären sich 
im wesentlichen selbst. Damit die Reihenfolge der 
Bildschirmtexte deutlicher wird, wurde in Zeile 6 
der Befehl SPEED=100 aufgenommen. 


3 HOME : HTAB (9> ; PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT*; HTAB <9); PRINT "R.PRUST / W.L>OSS 1984": 

PRINT 

5 FÜR I = 1 TO 2000; NEXT 

6 SPEED= 100 

10 HOME ; HTAB 10; PRINT "DEMONSTRATIONSPROGRAM“ 

20 HTAB 6; PRINT "FUER DIE BILDSCHIRMGESTALTUNG" 

40 L»TAB 8; HTAB 25; INPUT "EINGABE: " ;A^ 

60 UTAB 12: PRINT "DIES SOLL ZUNAECHST GENUEGEN." 

70 L'TAB 22; PRINT "NIR KOENNEN NUN AUCH HIER ETWAS SCHREI-": 

PRINT "BEN UND NACHHER WIEDER NACH OBEN GEHEN !"; 

80 L>TAB 12; CALL - 868; HTAB 13; PRINT "HIER WIRD JETZT GELOESCHT" 
90 SPEED= 255; END 


1 

CALL-868 in Zeile 80 löscht die aktuelle Bildschirm¬ 
zeile von der Cursorposition ab nach rechts. 


3 HOME ; HTAB <9); PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT ; HTAB <9); PRINT "R.PRUST / W.UOSS 1984"; 

PRINT 

5 FOR I = 1 TO 2000: NEXT 

6 SPEED= 100 

10 HOME : HTAB 10; PRINT "DEMONSTRATIONSPROGRAM" 

20 HTAB 6: PRINT "FUER DIE BILDSCHIRMGESTALTUNG" 

30 UTAB 15; PRINT "MIT L»TAB HABEN SIE DIE MOEGLICHKEIT, " : PRINT 
"ERST IM UNTEREN TEIL DES SCHIRMS EINE": PRINT "MITTEILUNG ZU 
MACHEN UND DANN WIEDER"; PRINT "FUER DAS INPUT NACH OBEN ZU 
GEHEN." 

35 PRINT "AEHNLICHES GILT FUER HTAB, WIE SIE"; PRINT "GLEICH 
SEHEN WERDEN." 

40 »JTAB 8; HTAB 25; PRINT "EINGABE; "; 

50 HTAB 9; PRINT "MACHEN SIE EINE 
60 HTAB 34; INPUT "";A^ 

70 UTAB 22; SPEED= 255: END 
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7.5.2 Stringfunktionen 

Wenn über Bildschirmgestaltung geredet wird, müssen 
in der Regel auch die Stringfunktionen mit einbezo¬ 
gen werden. Denn der Bildschirminhalt soll ja meist 
nicht nur aus Zahlen bestehen, sondern auch erläutern¬ 
de Texte zu den Zahlen umfassen. 

Auch in früheren Beispielen wurden diese Funktionen 
gelegentlich schon eingesetzt. 

Das folgende Beispiel enthält eine kleine Spielerei, 
die Rotation von Zeichen innerhalb eines Strings; 
das erste Zeichen wird jeweils weggenommen und hinten 
wieder angehängt, solange bis der ursprüngliche String 
wieder zusammengesetzt ist. 


3 HOME : HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT ; PRINT : HTAB (9): PRINT "R.PRUST / W.UOSS 1984" 


PRINT 


10 

HOME 

; INPUT "ZEICHENKETTE ";X^ 

20 

X 

z 

LaJ 

_l 

II 

X 

s 

+ 

X 

II 

X 

30 

HOME 

; PRINT X^ 

40 

FOR I 

= 1 TO X - 1 

50 

= 

LEFT^ <X^,1) 

60 

= 

RIGHTS <X^,X - 1) + Y$ 

70 

PRINT 

X^ 

80 

NEXT 


90 

END 



Der Bildschirmausdruck für die Zeichenkette 
"Geburtstag" sieht so aus; 
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GEBURTSTAG 
EBURTSTAG G 
BURTSTAG GE 
URTSTAG GEB 
RTSTAG GEBU 
TSTAG GEBUR 
STAG GEBURT 
TAG GEBURTS 
AG GEBURTST 
G GEBURTSTA 
GEBURTSTAG 


Nachfolgend eine etwas verbesserte Version dieses 
Programms; 


3 HOME : HTAB <9): PRINT “APPLE-TIPS UND TRICKS“ 

4 PRINT ; PRINT : HTAB <9); PRINT "R.PRUST / N.^OSS 1984": 
PRINT 

10 HOME : INPUT "ZEICHENKETTE; ";X^ 

20 + ” ":X = LEN (X^) 

22 IF X > 22 THEN PRINT ; INL>ERSE : PRINT "ACHTUNG:"; NORMAL 
: PRINT ; PRINT "ES MUESSEN WENIGER ALS 22 ZEICHEN SEIN”: CALL 
- 198: FOR I = 1 TO 2000; NEXT ; GOTO 10 

25 A = 21 - INT <X / 2) 

26 B = 12 - INT <X / 2) 

30 HOME ; L^TAB B: HTAB A; f^RINT X^ 

40 FOR I = 1 TO X - 1 
50 = LEFT^ (X^, 1) 

60 X^ = RIGHTS (X^,X - 1) + 

70 HTAB A; PRINT X^ 

80 NEXT 
90 END 
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Dabei wurde berücksichtigt, daß die Anzeige genau so 
viele Zeilen in Anspruch nimmt wie der erweiterte 
String X$ Zeichen hat. Für Strings mit mehr als 22 
Zeichen wäre die Anzeige nach Beendigung des Programms 
nicht mehr vollständig, deshalb wurde die Zeile 22 
eingefügt, die auch einen entsprechenden Hinweis bei 
falscher Eingabe liefert. Das Maschinenprogramm CALL- 
198 erzeugt einen "PIEP"-Ton. 

Die Anzeige sollte zudem auf dem Bildschirm zentriert 
werden. Zu diesem Zweck werden in den Zeilen 25 und 
26 die Variablen A (für die horizontale Position) und 
B (für die vertikale Position) eingeführt. 

Mit Hilfe der Länge des Strings aus der Variablen X 
wird die Anzahl der freien Bildschirmzeilen bzw. Spal¬ 
ten berechnet. In die Zeilen 30 und 70 wurden entspre¬ 
chende HTAB und VTAB-Befehle eingefügt. 


In diesem Programm wird deutlich, wie Stringfunk¬ 
tionen eingesetzt werden können, um Strings zu durch¬ 
suchen und zu zerlegen; dieser Vorgang ist auch nötig 
bei Programmen, die nicht nur Spielerei sind, wie et¬ 
wa Textverarbeitungsprogramme und Dateiverwaltungs¬ 
programme. 

Außerdem sollte deutlich gemacht werden, daß die Bild¬ 
schirmpositionen nicht notwendigerweise vom Benutzer 
zahlenmäßig vorgegeben werden müssen, sondern daß der 
Rechner sie auch berechnen kann - mit den erforderli¬ 
chen Anweisungen. 
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7.5.3 Formatierte Bildschirmausgabe 

Für Benutzer von Rechnern mit dem Betriebssystem 
CP/M ist die Formatierung von Bildschirmausgaben 
kein Problem. Dort gibt es den speziellen Befehl 
PRINT USING. Dieser steht auf dem APPLE II nicht 
zur Verfügung, deshalb muß auf etwas umständliche 
Programmierlösungen für diese Aufgabe zurückgegrif¬ 
fen werden. Dabei ist der Einsatz der Stringfunktio¬ 
nen unbedingt notwendig. 

Formatierte Ausgabe bedeutet folgendes: 

Man denkt sich den Bildschirm in mehrere senkrechte 
Streifen aufgefeilt, innerhalb derer Anzeigen erfol¬ 
gen sollen, und zwar sollen Zahlen so untereinander 
stehen, daß der Dezimalpunkt sich immer in derselben 
Bildschirmspalte befindet und eventuell sollen fehlen¬ 
de Nachkommastellen durch Nullen aufgefüllt werden. 
Sowohl Strings als auch Zahlen werden aber üblicher¬ 
weise linksbündig geschrieben auf dem Bildschirm. 

Das kann durch folgendes Programm verdeutlicht werden, 
das 20 Zahlen in 5 Zeilen und 4 Kolonnen schreibt, de¬ 
ren Anfang durch HTAB festgelegt wird: 


3 HOME s HTAB (9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / W.UOSS 1984": 
PRINT 

10 HOME : FOR I = 0 TO 4: FOR J = 0 TO 3: READ X<I,J) : NEXT 


J,I 

20 

FOR I = 

0 TO 4 

30 

FOR J = 

0 TO 3: HTAB <J X 9 + 

40 

PRINT ; 

NEXT I 

999 

END 


1000 

DATA 

12.2345,3,7.8,1789.4 

1010 

DATA 

4,121.789,-23.5,4.121 

1020 

. DATA 

1,2,3,4 

1030 

DATA 

<65.4386,342 18,3.764,9 

1040 

DATA 

0.8,198,34.274,456.1 


PRINT X<I,J);: NEXT 
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Die Bildschirmanzeige sieht so aus : 


12.2345 3 7.8 

4 121.789 -23.5 

1 2 3 

65.4386 34218 3.764 

.8 198 34.274 


1789.4 
4.121 
4 
9 

456. 1 


Wie kann man trotzdem etwa folgende Bildschirmaus¬ 
gabe erhalten^ die ebenfalls aus 4 Zahlenkolonnen 
besteht? 


12 

.23 

3.00 

4. 

.00 

121.79 

1 . 

.00 

2.00 

65. 

,44 

#1234218# 

0 . 

.80 

198.00 


7.80 

1789.40 

23.50 

4. 12 

3.00 

4.00 

3.76 

9.00 

34.27 

456.10 


Alle Zahlen sind auf 2 Stellen nach dem Komma ausge¬ 
geben, und zwar rechtsbündig in vorher festgelegten 
Feldern. Zudem ist bei Zahlen zwischen -1 und +1 vor 
dem Dezimalpunkt eine Null eingefügt worden. 

Eine Zahl erscheint in " " eingeschlossen, sie war zu 

lang für das angegebene Feld. 

Das entsprechende Programm ist recht umfangreich im 
Vergleich zu dem einfachen Ausgabeprogramm vorher: 
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3 HOME : HTAB <9): PRINT “APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB <9): PRINT "R.PRUST / W.L^OSS 1984”: 
PRINT 

10 HOME : DIM X<4,3),F^<3) 

20 DEF FN R<X) = INT (X X 100 + .5) / 100 

30 FOR I = 0 TO 4: FOR J = 0 TO 3: READ X<I,J): NEXT J,I 

40 FOR J = 0 TO 3: READ F^<J): NEXT 

50 FOR I = 0 TO 4 

60 FOR J = 0 TO 3:X = FN R<X(I,J)):X^ = STR^ (X) 

70 IF LEFT^ <X^,1) < > THEN X$ = “ " + X^ 

80 L = LEN <X^); IF MID^ <X^,2,1> = THEN X^ = LEFT^ 

(X^,l) + ”0” + RIGHTS <X^,L - 1):L = L + 1 

90 IF L = 2 THEN L = L + 1 

100 IF MID^ <X^,L - 2,1) = THEN 130 

110 IF MID^ (X^,L - 1,1) < > THEN X^ = X^ + “.0“ 

120 X^ = X^ + "0“:L = LEN <X$) 

130 F = LEN (F^(J)); IF L > F THEN X^ = "tt" + MID^ <X^,2,F 
- 2) + GOTO 160 

140 IF L = F THEN 160 

150 X^ = LEFT^HX^,!) + LEFT$ <F^<J),F - L) + RIGHTS 
<X^,L - 1) 

160 HTAB <J X 10 + 1); PRINT X^;: NEXT J 
170 PRINT : NEXT I 
180 END 


1000 

DATA 

12.2345,3,7.8,1789.4 

10 10 

DATA 

4,121.789,-23.5,4.121 

1020 

DATA 

1,2,3,4 

1030 

DATA 

65.4386,123421^,3.764,9 

1040 

DATA 

0.8,198,-34.274,456.1 

1100 

DATA 

II II II n II 

1 1 
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Programmbeschreibung 


Sätze 

10 

20 

30 


Inhalt 

Die Arrays X und F0 werden dimensioniert 

Die Rundungsfunktion R wird definiert 

Für das Array X werden 59f4 Zahlen einge¬ 
lesen 


40 


Die Breite der 4 Bildschirmstreifen wird 
durch F0 festgelegt in Form von Leer¬ 
zeichen 


50 

60 


70 


80 


Beginn der I-Schleife für die Zeilen 

Beginn der J-Schleife für die Felder 

Jeweils eine Zahl wird gerundet auf zwei 
Stellen nach dem Komma und in einen String 
verwandelt. 

Falls es sich um eine positive Zahl han¬ 
delt, erhält der String X0 als erstes 
Zeichen ein Leerzeichen. 

Nachdem die Länge des Strings X0 bestimmt 
wurde und der Variablen L zugewiesen wurde, 
wird überprüft, ob es sich um eine Zahl 
zwischen -1 und +1 handelt, die aber un¬ 
gleich Null ist. Solche Zahlen haben an der 
zweiten Stelle im String den Dezimalpunkt 
(Beispiele: "-.3" oder " .3"), weil in 
Zeile 70 die positiven durch ein Leerzei¬ 
chen ergänzt wurden. 

Falls eine solche Zahl vorliegt, wird vor 
den Dezimalpunkt eine Null eingefügt, damit 
die spätere Ausgabe nicht .8, sondern 0.8 
lautet. Die Länge L muß in diesem Fall um 
Eins erhöht werden. 
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Sätze 

Inhalt 

90 

Für einstellige ganze Zahlen ist die 

Länge 2. In der Zeile 100 würde für 
den Fall ein Fehler auftreten (L-2=0 
in der MID0-Funktion), also wird L er¬ 
höht. 

100-120 

i 

1 

Hier erfolgt bei Bedarf das Anfügen von 

Nullen bei fehlenden Nachkommastellen. 

100 Falls die gerundete Zahl genau zwei 
Nachkommastellen hat, d.h. falls das 
drittletzte Zeichen von X0 der 
Dezimalpunkt ist, ist keine Verände¬ 
rung nötig, die beiden folgenden Zei¬ 
len können übersprungen werden. 

110 Befindet sich weder an der drittletzten 
noch an der vorletzten Stelle des 

Strings ein Punkt, handelt es sich um 
eine ganze Zahl, der String wird um 
den Punkt und eine Nachkommastelle er¬ 
weitert. 

120 Ganze Zahlen bekommen noch eine weitere 
"0" und Zahlen mit nur einer Nachkom¬ 
mastelle ebenfalls eine "0" als letz¬ 
tes Zeichen angehängt. Nach diesen Ver¬ 
änderungen muß die Länge des Strings 
neu bestimmt werden. 

130-150 

Nun muß X0 in das Feld F0(J) richtig pla¬ 
ziert werden. 

130 Zunächst muß die Länge F des Feldes 
bestimmt werden und, falls X0 zu lang 
ist (L>F), werden das erste und die 
letzten Zeichen durch " " ersetzt bzw. 

abgeschnitten. Danach erfolgt der 

Sprung zur Zeile 160. 

140 Falls X0 genau das Feld füllt, wird 
ebenfalls zu Zeile 160 gesprungen, es 
muß keine Veränderung vorgenommen wer¬ 
den. 
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Sätze 

Inhalt 


150 X$ wird rechtsbündig in das Feld 

F0(J) gesetzt. Minuszeichen, so¬ 
fern sie vorhanden sind, werden an 
die erste Stelle des Feldes gesetzt, 
der Zwischenraum besteht aus den bis¬ 
her schon in F0(J) vorhandenen Leer¬ 
zeichen. 

160 

Nun kann nach all diesen Vorbereitungen 
endlich der Ausdruck erfolgen/ wieder 
wird durch HTAB der Beginn der Felder 
festgelegt. 

170 

Nach einem Zeilenvorschub (wegen des Se¬ 
mikolon hinter PRINT X0 in Zeile 160) 
wird die I-Schleife für die Zeile ge¬ 
schlossen. 

180 

Ende des Programms 

1000-1100 

DATA-Statements für die READ-Befehle 
der Zeilen 30 und 40 


Man muß schon etwas Zeit aufwenden, um diese formatier¬ 
te Bildschirmausgabe zu programmieren. Es wäre des¬ 
halb sinnvoll, zumindest Teile dieses Programms oder 
eines ähnlichen (es gibt noch mehr Möglichkeiten, die 
Formatierung des Bildschirms zu programmieren) immer 
als Unterprogramm bereitzuhalten, das dann in das je¬ 
weilige Hauptprogramm eingemischt werden kann, 
natürlich mit variablem Endwert für die I- bzw. J- 
Schleife. Ob man die EXEC-Methoden wählt oder APA ist 
dabei unwesentlich. 
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7.5.4 Bildschirmmasken 


Unter der Bezeichnung Bildschirmmasken versteht man 
meist die Aufteilung des Bildschirms für die Einga¬ 
be von Werten (Zahlen und Texten), die einer Datei 
zugewiesen werden sollen oder sofort im weiteren Pro¬ 
gramm verarbeitet werden. Dabei ist es wichtig, den 
Benutzer so zu führen, daß er weiß, was eingegeben 
werden soll und in welcher Form. Eine einfache Form 
einer Bildschirmmaskenerstellung zeigt das folgende 
Programm: 


3 HOME : HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT : HTAB < 9) : PRINT "R.PRUST / N.'JOSS 1984": 

PRINT 

10 HOME : HTAB <S: PRINT "PERSONALANGABEN": PRINT 

: FOR Q = 1 TO 40: PRINT NEXT : PRINT : POKE 34,4: HOME 

20 PRINT "NAME: .";: HTAB 22: PRINT " UORNAME: 

II 

30 k;TAB 8: FOR Q = 1 TO 34: PRINT NEXT : HTAB 36: PRINT 

11 II 

40 HTAB 14: PRINT "STRASSE";: HTAB 37: PRINT "NR." 

50 L>TAB 12; PRINT ".; HTAB 9; FOR Q = 1 TO 20; PRINT 

NEXT : PRINT 

60 PRINT " PLZ";: HTAB 15; PRINT "NOHNORT" 

70 L^TAB 16: PRINT ".";: HTAB 11; PRINT ".";: 

HTAB 28; PRINT "." 

75 PRINT "ALTER";: HTAB 11: PRINT "STEUERKLASSE";; HTAB 28: 

PRINT "KINDERZAHL" 

80 PRINT ; HTAB 15; PRINT "KINDERZAHL : _" 

90 L^TAB 19; PRINT "MACHEN SIE IHRE EINGABE DORT, NO DAS"; PRINT 
"LICHTZEICHEN BLINKT NUR BIS ZUR UORGE-"; PRINT "GEBENEN LAENGE.": 
PRINT "DRUECKEN SIE DANN DIE <RETURN> - TASTE." 

100 PV = 5:PH = 7: GOSUB 1000;N^ = X^:PH = 32: GOSUB 1000 
= X^ 

110 PW = 8;PH = 1: GOSUB 1000:S^ = X^:PH = 36; GOSUB 1000:NR^ 

= S^ 

120 P^ = 12;PH = 1: GOSUB 1000;PL^ = X^:PH = 9; GOSUB 1000;N^ 

= X^ 

130 PW = 16:PH = 1: GOSUB 1000:A^ = X^:PH = 16; GOSUB 1000:SK^ 

= X^;PH = 32; GOSUB 1000;KZ^ = X^ 

140 UTAB 19; CALL - 958: HTAB 6: INL^ERSE ; PRINT "DRUECKEN 
SIE IRGENDEINE TASTE"; NORMAL ; POKL - 16368,0; NAIT - 16384,128 
POKE - 16368,0; HOME 
150 END 

1000 X^ = ""; UTAB PW 

1010 HTAB PH; GET E^; PRINT E^;: IF E^ < > CHR^ <13) THEN 

PH = PH + 1;X^ = X^ + E$; GOTO 1010 
1020 RETURN 
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Programrobeschreibung 


Sätze 

Inhalt 

10 

Erzeugen einer Überschrift, Sperren 
von 4 Bildschirmzeilen am oberen 
Bildschirmrand durch POKE 34,4. 

20- 80 

Kennzeichnen der Eingabefelder und der 
geforderten Eingaben. 

90 

Hinweis auf die Bedienung. 

100-130 

Eingabe der Werte. 

Nach der Festlegung der vertikalen und 
horizontalen Position wird das Unter¬ 
programm 1000 jeweils angesprungen, da¬ 
nach der Wert der Variablen X0 des 
Unterprogramms an die jeweilige Haupt¬ 
programmvariable übergeben. 

140 

Programmunterbrechung durch WAIT. 

150 

Im Beispiel ist hier das Programm zu 

Ende, ansonsten könnten ab 150 weitere 
Anweisungen zur Verarbeitung der soeben 
eingegebenen Daten folgen. 

1000 

Unterprogramm für die Eingabe. 

Es werden zunächst der Ergebnisstring 

X0 gleich dem leeren String gesetzt 
und die vertikale Position bestimmt. 

PV muß aus dem Hauptprogramm übergeben 
werden, ebenso PH in der nächsten Zeile. 

1010 

Durch GET wird jeweils 1 Zeichen einge¬ 
lesen und durch PRINT ausgegeben. Solan¬ 
ge nicht RETURN gedrückt wird, werden 
die eingegebenen Zeichen dem String X0 
hinzugefügt und die horizontale Position 
jeweils um Eins erhöht. 

1020 

Rücksprung ins Hauptprogramm. Er erfolgt, 
sobald E0=CHR0(13), d.h. sobald die 

RETURN -Taste gedrückt wird. 
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In diesem Programm fehlen vor allem die Einrich¬ 
tungen, um Fehler von Benutzern abzufangen. So wird 
der Benutzer zwar angewiesen, die Eingaben nur bis 
zur vorgegebenen Länge zu machen, aber es gibt keine 
Befehle im Programm, die ihn daran hindern, falls er 
sich nicht an die Anweisungen hält. Außerdem werden 
die Eingaben nicht auf Plausibilität geprüft. 

Da für alle Eingaben Stringvariablen verwendet werden, 
werden Buchstabenfolgen für Alter oder Hausnummer 
ebenfalls akzeptiert. Dies müßte noch verbessert werden. 


Mehr Programmieraufwand erfordert zunächst der nach¬ 
folgend gelistete "Maskengenerator"; Das Programm be¬ 
nötigt immerhin mehr als 3 Seiten Listing. Es erstellt 
eine EXEC-Datei mit dem Namen MASKE, die die Programm¬ 
zeilen für eine Bildschirmmaske enthält. Der Vorteil 
liegt zum einen in der vielseitigen Benutzung, da di^ 
Zeilennummern beliebig gewählt werden können, also an 
der gewünschten Stelle ins Hauptprogramm eingefügt wer¬ 
den können durch den Befehl EXEC. Ein ganz wesentli¬ 
cher Vorteil liegt aber vor allem darin, daß man un¬ 
mittelbar den Bildschirm zunächst einmal so beschreiben 
kann, wie man ihn beim Programmlauf sehen will, d.h. 
ohne PRINT-Befehle und ohne das lästige Zählen. 

Man muß nur die Eingabefelder durch ein spezielles 
Zeichen markieren und die gewünschte Bezeichnung davor¬ 
setzen. Über die Speicherstellen 1048 bis 2047 wird 
der so gestaltete Bildschirminhalt dann in die erzeug¬ 
ten Programmzeilen eingesetzt. 
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Allerdings hat dieser Maskengenerator einige kleine¬ 
re Mängel. Es werden z.B. für die Eingabefelder auch 
Variablennamen erfragt, die nachfolgenden Benutzer¬ 
eingaben werden aber nicht auf Syntaxfehler geprüft. 

Dies führt dann nach dem Aufruf des erstellten Pro¬ 
gramms MASKE zu Syntaxfehlern, d.h. es handelt sich 
nicht um eine abbruchsichere Maske. 

Das Programm MASKENGENERATOR stammt von Frank Brall, 
es wurde hier weitgehend in der Originalfassung über¬ 
nommen. Die geringfügigen Änderungen betrafen nur offen¬ 
sichtliche Tippfehler. Ablauf oder Syntax wurden nicht 
verändert. Das Listing wurde der Zeitschrift COMPUTRO- 
NIC, April 84, entnommen. 

Das Programm erklärt seine Bedienung bei Start selbst, 
auf eine Programmbeschreibung haben wir verzichtet, da 
es sich um ein Fremdprogramm handelt. 

Mit diesem sehr umfangreichen Beispiel soll der Abschnitt 
Bildschirmgestaltung abgeschlossen werden. 
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80 ONERR GOTO 1360 
90 HOME 

100 PRINT "BILOSCHIRMMASKENGENERATOR” 

110 PRINT : PRINT ” <C) BEI FRANK BRALL" 

120 PRINT : PRINT 

130 PRINT "DIESES PROGRAMM ERSTELLT EINE ABBRUCH-": PRINT 
"SICHERE EINGABE-MASKE, DIE IN BASIC": PRINT "GESCHRIEBEN 
IST ! " 

170 PRINT : PRINT "NACH TASTENDRUCK ERSCHEINT EIN BEISPIEL,": 

PRINT "NELCHES MIT DEM EDITOR ERSTELLT WURDE." 

180 GET E^: IF E^ = "" THEN 180 

190 HOME : PRINT "KARTEI-NR.: @00 DATUM: 000": PRINT 

..-.. . PRINT : PRINT 

"NAME: ee0@0@0e@@0e UORNAME: 00000000000": PRINT "LETZTER 
WOHNORT 1000000000000000000000000 " 

200 PRINT : PRINT : PRINT "HEUTIGER WOHNORT: PLZ 0000 
00000000000 ": PRINT : PRINT : PRINT "SONSTIGE BEMERKUNGEN: 
000000000000000000": PRINT : PRINT "0000000000000000000000000000000000 
00000 " 

210 GET E^: IF E^ = "'" THEN 210 
220 HOME 

310 DIM X< 100) ,Y< 100) 100) ,L< 100) 

320 FOR I = 768 TO 880: READ E: POKE I,E: NEXT I 

330 DATA 164,36,169,32,145,40,173,16,192,173,0,192,16,251,72,164,36, 
177,40,73,128,145,40,104,201,133,208,1,96,201,131,208,6,32,88,252,76,0 
,3,201,141,240,10,201,136,240,12,166,36,224,39,208,6 

340 DATA 166,37,224,23,240,43,201,149,208,16,166,36,224,39,208,5,169 
,141,76,79,3,230,36,76,102,3,201,129,208,6,32,26,252,76,102,3,201,154, 
208,6,32,102,252,76,102,3,32,237,^53,164,36,177,40,73,128,145,40,76,6, 
3 

350 DATA 1024,1152, 1280,1408,1536,1664,1792,1920,1064,1192, 1320,1448 
,1576,1704,1832,I960,1104,1232,1360,1488,1616,1744,1872,2000 
360 INPUT “ERSTE 2EILEN-NR. DER MASKE ? “(ZN: HOME 

370 PRINT “MASKENEDITOR": PRINT “- 


380 

PRINT ! 

; PRINT 

: PRINT 

»CRTL-A 

CURSOR 1 ZEILE 

HOEHER" 






390 

PRINT 

PRINT 

"CRTL-Z 

= 

CURSOR 

1 ZEILE TIEFER" 

400 

PRINT 

PRINT 

" -> 

= 

CURSOR 

1 STELLE WEITER" 

410 

PRINT 

PRINT 

" <- 

= 

CURSOR 

1 STELLE ZURUECK" 

420 

PRINT 

PRINT 

"RETURN 

= 

ZUM NAECHSTEN ZEILENANFANG" 

430 

PRINT 

PRINT 

"CTRL-C 

= 

SCHIRM 

LOESCHEN" 

440 

PRINT 

PRINT 

"CTRL-E 

= 

MASKE ERSTELLEN" 

450 

PRINT 

PRINT 

" 0 

= 

MARKIERUNGSZEICHEN FUER" 

460 

PRINT 

PRINT 

II 


FENSTER 

;BELIEBIG ANREIHBAR" 

470 

PRINT 

CALL 768: GET 

E^ 
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POKE 36,0: POKE 37,0: PRINT 
n = CHR^ <4): PRINT D^;''DELETE MASKE¬ 
CALL 1002 

PRINT D^;"OPEN MASKE” 

PRINT D$;”NRITE MASKE” 

PRINT ZN;-REM BILDSCHIRMMASKE XX^”:ZN = ZN + 

PRINT ZN;"GOTO ”;ZN + 21:ZN = ZN + 1:NR = ZN 

PRINT ZN;"L'TAB<TY) :HTAB<TX) :INL>ERSE;FOR ZE=1 TO LE: ?CHR^< 32) ; :NEX 
”:ZN = ZN + 1 

PRINT ZN;"L»TAB<TY) :HTAB<TX) : ?LEFT^<ME^ , LE) ; ” : ZN = 

1 

PRINT ZN;"UTAB<TY);HTAB<TX):GE^=”; CHR^ <34); CHR^ 

... ;ZE=0" :ZN = ZN + 1 

PRINT ZN;”GET EI^:IF EI^OCHR^C 13) ANDEI^OCHR^C 2 1) 

”;ZN + 3:ZN = ZN + 1 

PRINT ZN;-IF EI^=CHR^<21) THEN ”;ZN - 1:ZN = ZN + 

PRINT ZN;”GE^=LEFT^<ME^,LE):GOTO”;ZN + 13:ZN = ZN 

PRINT ZN;”FOR ZE=1 TO LE:?CHR^<32);:NEXTZE:^TAB(TY):HTAB<TX):ZE=0 
0”;ZN + 2:ZN = ZN + 1 
PRINT ZN;”GET EI^”;ZN = ZN + 1 

PRINT ZN;”IF EI^=CHR^<27) THEN GE^=ME^:GOTO";ZN = 

1 

PRINT ZN;”IF EI^=CHR^<13) THEN";ZN + 8:ZN = ZN + 1 
PRINT ZN;"IF EI^=CHR^<21) THEN";ZN - 3:ZN = ZN + 1 
PRINT ZN;”IF EI^=CHR^<8) AND ZE=0 THEN”;ZN - 4:ZN 
I + 1 

PRINT ZN;”IF EI^=CHR^(8) THEN ZE=ZE-1:GOTO”;ZN + 3:ZN 
I + 1 

PRINT ZN;”IF ZE=LE-1 THEN GE^=GE^+EI^;ZE=ZE+1:GOTO";ZN 
ZN = ZN + 1 

PRINT ZN;”ZE=ZE+1":ZN = ZN + 1: PRINT ZN;”? EI^;:GE^=GE^+EI:ZN 
\ + 1 

PRINT ZN;"GOTO”;ZN - 9:ZN = ZN + 1 

PRINT ZN;"IF GE^O”; CHR^ < 34) ; CHR^ < 34) ” THEN GE^=LEFT^< GE^, ZE) 
^ = ZN + 1 

PRINT ZN; "NORMAL :L»TAB<TY) :HTAB<TX) :F0R ZE=1 TO LE : ?CHR^< 32) ; :NEXT 
• :ZN = ZN + 1 

PRINT ZN;-UTAB<TY):HTAB<TX):?GE^;:RETURN”:ZN = ZN 

PRINT ZN;"HOME”:ZN = ZN + 1 
FOR U = 1 TO 24 
READ A1:ST^ = ”” 

FOR I = Al TO Al + 39:C = PEEK <I) - 128 

IF C = 64 AND F = 0 THEN F = 1;X<Z) = I + 1 - A1:Y<Z) 

IF C. < >64 AND F = 1 THEN F = 0:L<Z) = I + 1-Al 

<Z) :Z = Z + 1 

IF C = 64 OR C = 34 THEN C = 32 
ST^ = ST« + CHR« <C) 

NEXT I 
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830 IF F = 1 THEN F = 0:L<2) = I + 1 - Al - X<2):2 = Z 
+ 1 

840 I = 0:T = 40 

850 IF MID^ <ST^,T,1) < > •• '• THEN 870 

860 I = I + 1:T = T - 1: IF T > 0 THEN 850 
870 IF U = 24 AND I < 2 THEN I = 2 

880 IF LI = 24 AND I = 40 THEN PRINT ZNPRINT“ ; CHR^ 

(34); CHR^ (34);“;”: GOTO 930 

890 IF I = 40 THEN PRINT ZN;“PRINT“: GOTO 930 

900 IF I = 0 THEN PRINT ZN;"PRINT“; CHR^ <34);ST^; CHR^ 

(34);“;“: GOTO 930 

910 IF U = 24 THEN PRINT ZN;“PRINT“; CHR^ (34);; PRINT 
LEFT^ (ST^,41 - I);: PRINT CHR^ (34);“;“: GOTO 930 
920 PRINT ZN;“PRINT“; CHR^ (34);; PRINT LEFT^ (ST^,40 
- I);: PRINT CHR$ (34) 

930 ZN = ZN + 1: NEXT U 
940 PRINT D^;"CLOSE MASKE“ 

950 IF Z = 0 THEN HOME : PRINT “FEHLER !!“; PRINT : PRINT 
"ES FEHLT DIE KENNZEICHNUNG DER FENSTER !”: PRINT : PRINT 
: PRINT‘“BEISPIEL: DATUM : @0@@@ee “: PRINT : PRINT 

•' NAME ee@@ee@ee@@ nr. @@”: end 

960 DTAB 24: HTAß 1: PRINT " 

“ ;:U = 24 
970 FOR Q = 0 TO Z - 1 

980 IF U = 24 AND Y(Q) = 24 THEN U = 22: 'JTAB 24: HTAB 
1: PRINT LEFT^ (ST^,39); 

990 FLASH 

1000 L'TAB (Y<Q)): HTAB <X(Q)): PRINT "0“; 

1010 NORMAL 

1020 UTAB (U): HTAB 1: PRINY "L»ARIABLENNAME “;Q + 1;“ 

? “ ; 

1030 G^ = ““: HTAB 18 
1040 GET E^ 

1050 IF E^ = CHR$ (8) THEN 1020 

1060 IF E$ < > CHR^ (13) THEN PRINT E^;;G^ = G^ + E^: 

GOTO 1040 

1070 L'^(Q) = G^: IF G^ = CHR^ (13) THEN 1020 
1080 HTAB <X<Q)); UTAB <Y<Q)): PRINT "0“; 

1090 NEXT Q 

1100 HOME : PRINT D^;“MON 0” 

1110 PRINT D^;"APPEND MASKE” 

1120 PRINT D^;”NRITE MASKE" 

1 130 FOR Q = 0 TO Z - 1 
1140 F = 0 

1150 FOR I = 1 TO LEN (U^<Q)): IF MID^ <L»^<Q),I,1) = 

THEN F = 1 
1160 NEXT I 

1170 IF F = 1 THEN PRINT ZN ; “L»TAB< " ; Y< Q) ; “) : HTAB< “ ;X( Q) ; “) 
L'^CQ) ; “ , " ;L<Q) ; ") ; " 

1180 IF F = 0 THEN PRINT ZN; “()TAB( “ ; Y< Q) ; “ ) : HTAB< " ;X< Q) ; “ ) 
“ ;L»^<Q) ;“) : ?RI GHT^CME^ , " ;L<Q) ;“) ;" 

1190 ZN = ZN + 1: NEXT Q:F = 0 


:?LEFT^(“; 
:ME^=STR^( 
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1200 FOR Q = 0 TO Z - 1 

1210 PRINT ZN;’'TX=” ;X<Q) ;TY=“ ;Y<Q) :LE=" ;L<Q) ;2N = 

ZN + 1 

1220 FOR I = 1 TO LEN IF MID^ (L»^<Q),I,1) = 

THEN F = 1 
1230 NEXT I 

1240 IF F = 1 THEN PRINT ZN;’*ME^='’Q) ;" :GOSUB“ ;NR:ZN 
= ZN + 1 

1250 IF F = 1 AND Q > 0 THEN PRINT ZN;"IF EI^=CHR^<27) 

THEN“;ZN - 6:ZN = ZN + 1 

1260 IF F = 1 THEN PRINT ZNQ) ;'•=6Etfc'':ZN = ZN + 1 

1270 IF F = 0 THEN PRINT ZN; "ME^=RIGHT^C STR^C ” Q) L< Q) GO 

SUB";NR5";IF GE^“ ; CHR^ (34); CHR^ (34);" THEN"; ZN: ZN 
= ZN + 1 

1280 IF F = 0 AND Q > 0 THEN PRINT ZN;"IF EI^=CHR1i( 27) 

THEN";ZN - 6:ZN = ZN + 1 

1290 IF F = 0 THEN PRINT ZN;L»^( Q) ; "=k)AL(GE^) " :ZN = ZN 
+ 1 

1300 F = 0: NEXT Q 

1310 PRINT ZN; "REM ENDE DER MASKE ^ " 

1320 PRINT D^;"CLOSE MASKE" 

1330 HOME : PRINT ^‘DIE MASKE IST ERSTELLT !": PRINT : 

PRINT ; PRINT "DURCH DEN BEFEHL "; 

1340 INVERSE ; PRINT "EXEC MASKE"; NORMAL : PRINT "WIRD 
SIE IN DEN SPEICHER GESCHRIEBEN." 

1350 END 

1360 REM FEHLERKONTROLLE XXX 

1370 QE = PEEK (222) 

1380 IF QE = 6 THEN 500 

1390 PRINT CHR^ (7): PRINT ’D^;"CLOSE MASKE" 

1400 PRINT ; INVERSE ; PRINT "FEHLERCODE ";QE; NORMAL 
: END 
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7.6 Sortieren 


Im Kapitel 1 wurde ein Beispielprogramm für den 
Sortiervorgang ausführlich erläutert. Es handelt sich 
dabei um einen sogenannten Bubble-Sort, es werden alle 
Elemente eines Arrays mit allen nachfolgenden vergli¬ 
chen und bei falscher Reihenfolge wird vertauscht. 

Das Programm erfordert zwei geschachtelte Schleifen, 
der Umfang der inneren Schleife hängt vom Index der 
äußeren Schleife ab. Dieses Verfahren ist vergleichs¬ 
weise einfach zu programmieren und es ist sicher. 
Andererseits ist es aber auch ziemlich langsam, da für 
ein Array vom Umfang N genau N(N-1)/2 Vergleiche durch¬ 
geführt werden müssen. Für N=100 sind dies schon 4950 
Vergleiche. Genaue AusführungsZeiten lassen sich nicht 
angeben, da diese nicht nur von der Anzahl der Ver¬ 
gleiche, sondern auch von der Anzahl der erforderlichen 
Vertauschungen abhängen, also davon, ob die Liste schon 
teilweise sortiert ist, eventuell umgekehrt sortiert 
oder völlig unsortiert. 

Diese relativ lange Ausführungszeit war sicherlich 
der Grund für eine große Menge von Veröffentlichungen 
von Sortierroutinen. Durch umfangreiche Testläufe hat 
sich gezeigt, daß es keinen "besten" Sortieralgorith¬ 
mus gibt. Einige Routinen, die für Großrechner ent¬ 
wickelt wurden und dort hervorragende Ausführungszel¬ 
ten erreichen, stellen sich für Kleinrechner als unge¬ 
eignet heraus, sind auf Kleinrechner möglicherweise 
sogar langsamer als die Methode der direkten Vergleiche. 
Da AusführungsZeiten auch bestimmt werden vom Betriebs¬ 
system, ist dasselbe Programm nicht auf allen Klein¬ 
rechnern gleich gut. 
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Man teilt die Sortierroutinen nach der Problemstel¬ 
lung in 2 Gruppen ein: 

X-Sorter und X/Y-Sorter. 

X-Sorter sind solche Programme, die ein Array (näm¬ 
lich X) der Größe nach - aufwärts oder abwärts - sor¬ 
tieren. X/Y-Sorter hingegen sortieren ein Array (näm¬ 
lich X) und führen dabei jeweils die entsprechenden 
Werte eines zweiten Arrays (Y) mit. 

Für den APPLE als besonders günstig erwiesen haben sich 
für die erste Aufgabe der sogenannte Super-Quicksort 
von KOLBE und für die zweite Aufgabe ein X/Y-Sorter von 
VELLEMAN und HOAGLIN. 

Das Programm für die X-Sortierroutine ist recht kom¬ 
pliziert aufgebaut, basiert aber auf einer einfachen 
Idee, die man auch im Alltag immer wieder bei Sortier¬ 
arbeiten einsetzt, die nicht mit dem Computer erledigt 
werden, z.B. bei der Ablage von Schriftstücken nach dem 
Alphabet oder nach Sachgebieten. Es ist zeitsparend, 
zunächst grob v'orzusortieren und dann erst - möglicher¬ 
weise in mehreren Schritten - die "Feinsortierung" vor¬ 
zunehmen; zum Beispiel werden erst alle Schriftstücke 
nach dem entsprechenden Anfangsbuchstaben geordnet und 
erst in einem zweiten Schritt werden dann alle Schrift¬ 
stücke desselben Buchstabens sortiert. 

Ähnlich arbeitet die Routine nach dem Algorithmus von 
VELLEMAN und HOAGLIN. Man sortiert zunächst das gesam¬ 
te Array so, daß die Werte des ersten Teils alle kleiner 
oder gleich einem Vergleichswert (HX) sind und die Wer¬ 
te des zweiten Teils größer oder gleich diesem Wert. 
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Als Vergleichswert dient der Arraywert an der mitt¬ 
leren Position, d.h. X(N/Z). Falls N/Z nicht ganz¬ 
zahlig ist, nimmt der Rechner automatisch den nächst¬ 
kleineren ganzzahligen Wert als Index an. Das "längere 
Stück wird dann zunächst zurückgestellt, mit Hilfe der 
Variablen L(Q) und R(Q) werden Anfangs- und Endindex 
dieses Teils gespeichert. Dabei gibt Q die Zerlegungs¬ 
stufe an. Nun werden A oder E neu belegt. 

Das "kürzere" Stück wird weiter bearbeitet, d.h. 
das mittlere Element dieses Teilarrays wird zum neuen 
Vergleichswert HX und wieder werden die Elemente grup¬ 
piert in solche, die kleiner oder gleich HX sind und 
solche, die größer oder gleich HX sind. Q wird um Eins 
erhöht, das größere Teilstück zurückgestellt, das klei 
nere weiter untersucht. 

Dies geschieht solange, bis das kleinere Teilstück 
noch höchstens 15 Elemente enthält. Diese werden dann 
sortiert (Zeilen 30 und 40). 

Danach das zurückgestellte Stück dieser Zerlegungs¬ 
stufe; durch Q=Q-1 geht man eine Stufe zurück. Falls 
dieses Stück länger ist als 15 Elemente, wird wieder 
vorsortiert, ansonsten kann die Feinsortierung durch 
die Zeilen 30 und 40 erfolgen. Die jeweiligen sortier¬ 
ten Teile einer Stufe passen "nahtlos" aneinander, da 
sie durch denselben Vergleichswert auseinandergeschnit 
ten wurden. 

Zu diesem Vorgehen eine schematische Darstellung; 
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Q—0 : 
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Q=1 : 


Q=0 ; 


)(— 

L(/t) 


< 4x_j :> ux, 


I4K 




^ HX 





- 

-L(1) 

UA) 


^ wx 


I ^ HX 

Ri'i) 


—k 



e 


—y 


;e 

A 


-K 


X- ^^ 

>Ä--LU^ 5'ie(2) 

V> 


Dabei bedeutet ein Pfeil, daß der entsprechende 
Arraybereich sortiert ist. 
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Das Vorsortieren erfolgt in den Zeilen 50 bis 80, 
die Zeilen 90 bis 140 leisten die Prüfung, welcher 
Teil zurückgestellt wird und die notwendigen Neu¬ 
belegungen der Variablen. 

In der Zeile 150 wird geprüft, ob Q=0 ist, d.h. ob 
schon das gesamte Array sortiert wurde. Wenn nicht, 
wird auf das zurückgestellte Array derselben Zerle¬ 
gungsstufe zurückgegriffen und dann Q reduziert. 


3 HOME ; HTAB <9): PRINT "APPLE-TIPS UND TRICKS" 

4 PRINT : PRINT ; HTAB <9): PRINT "R.PRUST / W.UOSS 1984": 
PRINT 

10 A = 0:E = N;H = 14:Q = 0 
20 IF E - A > H THEN 50 

30 FOR I = A TO E - 1;Y = X<I):K = I: FOR J = I + 1 TO E: IF 
X<J) < Y THEN Y = X<J):K = J 

40 NEXT :X<K) = X<I):X<I) = Y: NEXT : GOTO 150 
50 I = A:J = E:HX = X(<I + J) / 2) 

60 FOR I = I TO E: IF X<I) < HX THEN NEXT 

70 FOR J = J TO A STEP - 1: IF X(J) > HX THEN NEXT 

80 IF I < J THEN Y = X<I):X<I> = X<J):X<J) = Y:I = I + 1:J 

= J - 1: IF I < J THEN 60 

90 IFJ-A>E-I THEN 130 

100 IF I < E THEN Q = Q + 1:L<Q) = I:R(Q) = E 
110 E=J; IFA<E THEN 20 
120 GOTO 150 

130 IF J > A THEN Q = Q + 1:L<Q) = A:R<Q) = J 
140 A = I: IF A < E THEN 20 

150 IF Q > 0 THEN A = L<Q):E = R<Q);Q = Q - 1; GOTO 20 
160 END 


Der X/Y-Sorter arbeitet unkomplizierter, allerdings 
auch langsamer. 
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3 HOME ; HTAB <9); PRINT “APPLE-TIPS UND TRICKS“ 

4 PRINT : PRINT : HTAB <9): PRINT "R.PRUST / N.UOSS 1984“: 
PRINT 

10 L = N - 1 

20 L = INT <<L - 2) / 3) + 1: FOR I = 1 TO N - L:J = I + L: HX 
= X<J):HY = Y<J): IF X<I) < = HX THEN 70 
30 Q = I 

40 X(J) = X<Q):Y<J) = Y<Q):J = Q; IF Q < = L THEN 60 

50 Q = Q - L: IF X(Q) > HX THEN 40 
60 X<J) = HX:Y<J) = HY 
70 NEXT I; IF L > 1 THEN 20 
80 END 


Das ursprüngliche X-Array wird "gedrittelt" (wobei 
der mittlere Teil eventuell etwas länger ist, wenn 
N nicht durch 3 teilbar ist). 

Nun wird das erste Element des ersten Teils mit 
dem ersten Element des zweiten Teils verglichen 
und gegebenenfalls vertauscht, dann das zweite Ele¬ 
ment des ersten Teils mit dem zweiten des zweiten 
Teils usw. 

Der Abstand zwischen den verglichenen Elementen be¬ 
trägt immer N. Für jedes I aus dem ersten Bereich 
gilt nach diesem ersten Durchlauf: X(I)< =X(I+L). 

Nun werden die Elemente aus dem zweiten Teil mit den 
entsprechenden aus dem dritten Teil verglichen, also 
wieder mit den Elementen im Abstand L. Das Größere 
von beiden gehört ins letzte Drittel. Das Kleinere 
von beiden wird mit dem entsprechenden des ersten 
Drittels verglichen und gegebenenfalls dort plaziert 
Nach diesem Durchlauf gilt für alle I aus dem ersten 
Teil, d.h. für alle I<=L: 


X(I)<=X(I+L)<=X(I+2L). 
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Nun wird L verkleinert, und zwar zu einem Drittel 
der nächsten durch 3 teilbaren Zahl. An einem Beispiel 
wird vermutlich deutlicher, was gemeint ist: 

Für N=200 wird zunächst L auf 199 gesetzt (Zeile 10), 
danach wird L berechnet zu 

L=INT((199-2)/3)+1=INT(197/3)+1=INT(65.666)+1=65+1=66 

Dies ist aber 198/3 und 198 ist die durch 3 teilbare 
Zahl, die 199 am nächsten liegt. Jede ganze Zahl hat 
als benachbarte Zahl eine, die ein Vielfaches von 3 ist, 
oder sie ist selbst durch 3 teilbar. 

Für den ersten Durchlauf der Schleife in den Zeilen 
20 bis 70 hat L für N=200 also den Wert 66. 

Danach wird es entsprechend der Formel in Zeile 20 
auf etwa ein Drittel reduziert. Da 66 durch 3 teil¬ 
bar ist, wird L genau 22; das Array ist zerlegt in 
9 Teile. Nun wird derselbe Prozeß durchgeführt. 

Jedes Element eines beliebigen Teils wird mit den 
entsprechenden Elementen aller davorliegenden Teile 
verglichen und gegebenenfalls verschoben. Nach dem 
ersten Durchlauf der Schleife hatte man 66 geordnete 
Reihen der Länge 3, die ineinandergeschoben waren. 

Nach dem zweiten Durchlauf hat man 22 geordnete Reihen 
der Länge 9, die ineinandergeschoben sind. 

Die nächste durch 3 teilbare Zahl bei 22 ist 21, L 
wird also auf 7 reduziert; es entstehen 28 Teilstücke. 
Von 7 sinkt L auf 2; jedes Element wird also mit dem 
übernächsten verglichen. Nach diesem Durchlauf hat man 
nur noch 2 ineinandergeschobene geordnete Reihen. 

Nachdem L auf 1 reduziert wurde, wird die Schleife noch 
einmal durchlaufen - jetzt werden benachbarte Elemente 
verglichen - und das Ergebnis ist die geordnete Reihe. 
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In der vorhergehenden Erläuterung wurde immer nur von 
einem Array gesprochen. Dies ist auch richtig, da das 
Y-Array immer nur mitgeführt wird, seine Elemente also 
nur dann einbezogen werden, wenn Werte des X-Arrays 
verschoben werden, also in den Zeilen 40 und 60. 


Nach diesen etwas theoretischen Erklärungen soll 
nun ein Anwendungsbeispiel diesen Abschnitt beschlie¬ 
ßen. Die Routinen wurden zwar für Zahlen entwickelt, 
können aber auch auf Stringvariablen übertragen wer¬ 
den. Es soll nämlich ein Programm zur Erstellung eines 
Registers vorgestellt werden, eines Stichwortver¬ 
zeichnisses mit den Seitenzahlen, auf denen die Stich¬ 
worte nachzuschlagen sind. Die Wörter müssen alphabe¬ 
tisch sortiert werden und dabei müssen die Seitenzah¬ 
len mitgeführt werden. Danach sollen alle Seitenzahlen 
desselben Stichwortes der Größe nach sortiert werden. 

Beide Routinen werden eingesetzt, natürlich in abgeän¬ 
derter Form. Im X/Y-Sorter wird X durch X0 ersetzt, 
im X-Sorter X durch Y. Dies kann etwa durch das Pro¬ 
gramm REPLACE aus dem APPLE-Doc erfolgen. 

Sie werden dann als Subroutinen eingebaut. Es soll dar¬ 
auf hingewiesen werden, daß durch den Übergang zu 
Stringvariablen die Optimalität des X/Y-Sorters mög¬ 
licherweise verlorengeht. 
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3 HOME : HTAB (9); PRINT "APPLE-TIPS UND TRICKS” 

4 PRINT : PRINT : HTAB (9): PRINT "R.PRUST / W.’JOSS 1984": 
PRINT 

10 REM XXX ERSTELLUNG EINES REGISTERS XXX 
20 N = 27 

30 HOME : TEXT ; DIM X^<N),Y<N) 

40 FOR I = 1 TO N; READ X$<I),Y<I): NEXT 
50 GOSUB 1000 


60 

M 

70 

Z = 1: FOR M 

= 

Z TO N - 

1 : IF X^<M) = X^<M + 

1) THEN NEXT 

IF M > Z THEN 

A = Z:E = 

= M: GOSUB 2000 



80 

PRINT X^<Z) 

5 • 

HTAB 20: 

PRINT Y<Z);: IF 

Z = M 

THEN 130 

90 

FOR Q = Z + 

1 

TO M: IF 

Y<Q) = Y<Q - 1) 

THEN 

120 

100 

PRINT ", " 

5 • 

IF PEEK 

(36) > 36 THEN 

PRINT 

: HTAB 20 

1 10 

PRINT Y(Q) 

} 





120 

NEXT Q 






130 

PRINT : IF 

M 

= N THEN 

END 



140 

IF M = N - 

1 

THEN PRINT X^<N);; HTAB 

20: PRINT Y<N): END 


150 Z = M + 1: NEXT M 

160 END 

1000 L = N - 1 

10 10 L = INT (<L - "2) / 3) + 1; FOR 1= 1T0N-L;J=I + 

L:HX^ = X^<J):HY = Y<J): IF X^<I) < = HX^ THEN 1060 

1020 Q = I 

1030 X^<J) = X^<Q);Y<J) = Y<Q):J = Q: IF Q < = L THEN 1050 

1040 Q = Q - L: IF X^<Q) > HX^ THEN 1030 

1050 X^<J) = HX^:Y<J) = HY 

1060 NEXT I: IF L > 1 THEN 1010 

1070 RETURN 

2000 H = 14;Q = 0 ’ 

2010 IF E - A > H THEN 2040 

2020 FOR I = A TO E - 1:Y = Y<I):K = I: FOR J = I + 1 TO E: 

IF Y<J) < Y THEN Y = Y<J);K = J 

2030 NEXT :Y(K) = Y(I):Y(I) = Y; NEXT ; GOTO 2140 
2040 I = A:J = E:HY = Y<(I + J) / 2) 

2050 FOR I = I TO E: IF Y<I) < HY THEN NEXT 

2060 FOR J = J TO A STEP - 1: IF Y<J) > HY THEN NEXT 

2070 IF I < J THEN Y = Y<I):Y<I) = Y(J):Y<J) = Yil = I + 1:J 

= J - 1; IF I < J THEN 2050 

2080 IF J - A > E - I THEN 2120 

2090 IF I < E THEN Q = Q + 1:L<Q) = I:R<Q) = E 

2100 E = J: IF A < E THEN 2010 

2110 GOTO 2140 

2120 IF J > A THEN Q = Q + 1;L<Q) = A;R<Q) = J 
2130 A = I: IF A < E THEN 2010 

2140 IF Q > 0 THEN A = L<Q);E = R<Q):Q = Q - 1; GOTO 2010 
2150 RETURN 

3000 DATA GOTO,13, REM,24, INDEX,234, GOTO,52, DIMENSION,53, 

INPUT,12, GOTO,4, PRINT, 12, PRINT,78, INPUT,90, GOTO,4 
3010 DATA LEFT^,198, MID^,286, HTAB,22, PRINT,22, GOTO,56, 

'v^TAB,2, IF..THEN,34, ARRAY,92 

3020 DATA ARRAY,76, REM,15, INPUT,57, INDEX,112, DIM,160 

3030 DATA GOTO,234, GOTO, 143, L'TAB,23 
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Kapitel 8; Alternativen zur BASIC-Programmierung 

8.1 Vorbemerkungen 

Alle vorangegangenen Kapitel hatten mit der Frage 
zu tun, inwieweit mit geschickten BASIC-Programmen 
und unter Ausnutzung der Möglichkeiten, die der 
APPLE II bietet, bestimmte Probleme durch den Rech¬ 
nereinsatz gelöst werden können. 

Es hat sich dabei gezeigt, daß diese Möglichkeiten 
schon so weit ausgebaut sind, daß auch komplizierte¬ 
re Problemstellungen durchaus'erfolgreich bewältigt 
werden. 

Gleichwohl darf nicht übersehen werden, daß die Pro¬ 
grammiersprache BASIC eine relativ junge Entwicklung 
ist und deshalb bei weitem noch nicht all das bieten 
kann, was beispielsweise die "alten", traditionellen 
Programmiersprachen an Problemlösungskapazitäten be¬ 
reitstellen können. 

Folgende Überlegung tritt noch hinzu: Nicht für alle 
Probleme, vor denen man steht, muß man selbst Lösun¬ 
gen finden, weil viele - vor allem häufig wiederkeh¬ 
rende Fragestellungen - längst bearbeitet wurden. 

Man kann deshalb relativ häufig auf schon fertige Pro¬ 
gramme oder Programmsysteme zurückgreifen, die als 
Software -Angebote bereitstehen. 
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Mit beiden Aspekten, also mit traditionellen Pro¬ 
grammiersprachen und mit Softwareprogrammen be¬ 
schäftigt sich übersichtsweise dieses Kapitel. 

Dabei geht es jetzt nicht mehr darum, Programme 
oder einzelne Programmsegmente vorzustellen, son¬ 
dern es geht eher um eine generelle Übersicht. 

Wir können nämlich nicht davon ausgehen, daß der Le¬ 
ser dieses Buchs die notwendige Ausstattung hat, die 
benötigt wird, um alles nachzuvollziehen, worüber hier 
berichtet wird. 

Gleichwohl soll ein Überblick geboten werden, damit 
der Leser abschätzen kann, welche Weiterungen möglich 
sind. 
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8.2 Andere Programmiersprachen 

Wenn man darauf verzichtet, mit dem Applesoft-BASIC- 
Interpreter zu arbeiten oder eine komfortablere 
BASIC-Version per Diskette zu laden, dann kann man auch 
auf andere Programmiersprachen zurückgreifen - voraus¬ 
gesetzt, man hat die entsprechenden Übersetzungspro¬ 
gramme (Compiler) auf Diskette und man verfügt über 
hinreichende Arbeitsspeicherkapazitäten (in der Regel 
mindestens 48 K ). 

Sind diese Voraussetzungen erfüllt, können eine Reihe 
verschiedener Programmiersprachen verwendet werden, 
die hier nicht alle aufgezählt werden sollen. Wir wol¬ 
len vielmehr das Augenmerk des Lesers auf zwei speziel¬ 
le Sprachen lenken, die in der Geschichte des Compu¬ 
tereinsatzes bis in die heutige Zeit hinein eine beson¬ 
ders wichtige Rolle spielen. Es sind dies die Sprachen 

FORTRAN und COBOL. 

Beiden Sprachen ist gemeinsam, daß sie schon seit Jahr¬ 
zehnten existieren, eine ungeheure Verbreitung (und da¬ 
mit Popularität) bei Großrechenanlagen und jetzt auch 
in zunehmendem Maße bei Kleinrechnern gefunden und stän¬ 
dig Erweiterungen, Ergänzungen, Verbesserungen und Mo¬ 
dernisierungen erfahren haben. 
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FORTRAN steht als Abkürzung für 

FORmula TRANslation ("Formel-Übersetzung") 

und ist eine Sprache, die insbesondere für tech¬ 
nisch-wissenschaftliche und vornehmlich mathematisch 
erfaßbare Probleme entwickelt wurde. 


COBOL steht als Abkürzung für 

Common Business Oriented Language 
("Allgemeine betrieblich orientierte Sprache") 

und dient vornehmlich zur Lösung von EDV-Problemen im 
betrieblich-kommerziellen Bereich. 

Die Eigenschaften und Eigenheiten dieser beiden sehr 
charakteristischen Sprachen sollen im folgenden kurz 
skizziert werden - nicht etwa, um hier einen kompletten 
FORTRAN- oder COBOL-Kurs vorzuführen, sondern um dem 
Leser eine grobe Vorstellung davon zu vermitteln, inwie¬ 
weit sich diese Sprachen von dem ihm inzwischen viel¬ 
leicht lieb gewordenen oder zumindest gewohnten BASIC 
unterscheiden. 


Beginnen wir zunächst mit der Programmiersprache FORTRAN. 
Ähnlich wie bei BASIC, gibt es auch hier verschiedene 
Dialekte. Wir beziehen uns im folgenden auf die neuere 
Version, nämlich auf FORTRAN 77. 


355 


Mit dieser FORTRAN-Version ist das sehr lang gebräuch¬ 
liche FORTRAN IV ersetzt worden, das auf die modernen 
Möglichkeiten der dialogorientierten Programmierung 
nicht reagieren konnte. 

Zwischen den Programmiersprachen BASIC und FORTRAN be¬ 
steht eine relativ enge Verwandschaft. 

Wie in BASIC gibt es auch hier bestimmte Anweisungs¬ 
gruppen: Anweisungen 

- zur Eingabe von Informationen, 

- zur Ausgabe von Ergebnissen, 

- zur Durchführung von Rechenprozeduren, 

- zur Durchführung von Textverarbei¬ 
tungsprozeduren , 

- für Programmverzweigungen, 

- für Programmsprünge 

- für den Einbau von Unterprogrammen 
etc. 

Die Unterschiede zur Programmiersprache BASIC sind 
zunächst vor allem formaler Art: 

FORTRAN-Statements werden nicht konsequent durchnume¬ 
riert, und wenn sie eine Nummer bekommen, dann dient 
diese nur als Ansprungadresse. Da FORTRAN-Statements 
immer mit sechs Leerzeichen eingeleitet werden, hat 
man in den vorderen sechs Anschlägen Platz genug für 
solche, in wenigen Fällen benötigten, Statement-Num- 
nern; sie stehen dann in Anschlag 1-5 (Anschlag 6 ist 
für die Markierung eventueller Fortsetzungszeilen bei 
langen Statements vorgesehen). 
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Ohne in die Details zu gehen, sollen kurz die wich¬ 
tigsten Statements und deren formaler Aufbau betrach¬ 
tet werden, wobei wir - um dem Leser das Verständis 
für diese Statements zu erleichtern - die entsprechenden 
BAS IC “Statements (so weit vorhanden) gegenüberstellen. 

Es versteht sich, daß wir bei dieser Aufzählung keine 
Vollständigkeit anstreben. 

Die wichtigsten FORTRAN-Statements sind die folgenden: 

1. Dateneingabe : 

READ *, Variablenliste 

Mit diesem Statement werden kleinere Datenbestände 
eingegeben. 

READ (n,m) Variablenliste 

Mit diesem Statement werden größere (und formatierte) 
Datensätze eingelesen. Dabei steht unter n die Geräte¬ 
nummer des Eingabegeräts und unter m die Statement¬ 
nummer der zugehörigen FORMAT-Angabe. 


2. Formatierung : 

m FORMAT (Spezifikationen) 

Mit dieser Anweisung wird der Datensatz beschrieben, 
der CLn der Regel bei mehrfacher Wiederholung mit unter¬ 
schiedlichen Daten) eingelesen werden soll. 

Nähere Erläuterungen dazu folgen nach den anderen State¬ 
ments, die hier vorgestellt werden sollen. 




357 


Das FORMAT-Statement muß mit einer Statement-Num¬ 
mer eingeleitet werden, die im zugehörigen READ- 
Statement (s.o.) auftaucht. 

3. Datenausgabe ; 

PRINT *t, Variablenliste 

Statement zur Ausgabe von kleineren Ergebnismengen. 

WRITE(n,m) Variablenliste 

Ausgabe größerer Ergebnislisten in formatierter 
Weise (s.o.). 


4. Arithmetische Anweisungen ; 

Variable = arithmetischer Ausdruck 

Dies ist eine einfache Rechenanweisung; sie ent¬ 
spricht dem LET-Statement der Sprache BASIC. 


5. Bedingter Sprung ; 

IF (logischer Ausdruck) Folgeanweisung 

Dieses Statement entspricht dem IF...THEN-Statement 
aus BASIC, wobei aber andere logische Operatoren 
verwendet werden: 


.EQ. 

entspricht 

= 

.NE. 

II 

< > 

.LE. 

II 

< = 

.GE. 

II 

> = 

.LT. 

II 

< 

.GT. 

II 

> 
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6. Unbedinger Sprung : 

GO TO m 

Auch diese Anweisung unterscheidet sich nicht vom 
GO TO-Statement aus BASIC. 


7. Arithmetische Verzweigung : 

IF (arithm. Ausdruck) n^, n 2 / n^ 

Diese sog. arithmetische IF-Anweisung verzweigt zum 
Satz Nr. n^, wenn der arithmetische Ausdruck negativ 
ist, zum Satz n 2 / wenn er null ist und zum Satz n^^ 
wenn er positiv ist. 


8. Schleife ; 

DO n, Variable = Anfang, Ende 

Mit diesem Statement wird eine Schleife eingeleitet 
(entsprechend FOR. . .TO.. . in BAGIl,; . 

n CONTINUE 

Statement zur Beendigung einer Schleife (entsprechend 
dem NEXT-Statement in BASIC); 

die Statementnummer n muß der Nummer n im DO-Statement 
entsprechen. 
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9. Dimensionierung ; 

DIMENSION Variablenname (Wert) 

Diese Anweisung entspricht dem DIM-Statement aus 
der Sprache BASIC. 


1o. Datenbereitstellung ; 

DATA Variablenliste/Werte/ 

Dieses Statement erlaubt Datenzuweisungen, ohne daß 
per READ gelesen werden müßte; insoweit handelt 

es sich hier, würde man mit BASIC vergleichen, um eine 
Koppelung von DATA- und READ-Statement. 

CHARACTER Variable = Ausdruck 

Mit dieser Anweisung sind in FORTRAN Textzuweisungen 
möglich (entsprechend der Anweisung LET Var.name$ = 
String in BASIC). 


11. Unterprogramme ; 

SÜBROUTINE Name (Argumente) 

Mit diesem Statement werden Unterprogramme eingelei¬ 
tet (die, ebenso wie das Hauptprogramm, in FORTRAN 
mit END beschlossen werden). 

Der Aufruf des Unterprogramms aus dem Hauptprogramm 
erfolgt mit: 

CALL Name (Argumente) 

(Dies entspricht dem GOSUB-Statement aus BASIC). 
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12. Programmbeendigung : 

Das FORTRAN-Progranmi wird (wie in BASIC) mit dem 
Statement 


END 

beendet. 


13. Kommentare ; 

Diese - noch sehr unvollständige Aufzählung - soll mit 
einer FORTRAN-Möglichkeit abgeschlossen werden, die 
dem REM-Statement aus BASIC entspricht: 

Alle Texte, die in Anschlag 1 mit einem C eingelei¬ 
tet werden, dienen als Kommentare und werden deshalb 
genauso behandelt wie REM in der Sprache BASIC. 


Es fällt bei dieser Aufzählung besonders ins Auge, daß 
in FORTRAN im Unterschied zu BASIC ein sog. FORMAT- 
Statement benutzt werden kann. 

Dieses FORMAT-Statement dient dazu, einen Datensatz 
zum Zwecke des Einlesens und/oder zum Zwecke der Aus¬ 
gabe zu formatieren. Betrachten wir dazu zur Verdeut¬ 
lichung der Vorgehensweise das folgende Beispiel zweier 
Datensätze, die willkürlich aus einem Datenbestand her¬ 
ausgegriffen wurden: 
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Nr. 

Name 

Alter 

Größe 

Gewicht 

17 

MUELLER 

42 

1.85 

84.5 

18 

ROLF 

38 

1.70 

75 


In BASIC würde man diese Datensätze folgendermaßen 
dem Rechner übergeben können: 


10 DATA 17,MUELLER,42,1.85,84.5 
20 DATA 18,ROLF,38,1.7,75 


499 Z=2 

500 FOR 1=1 TOZ 

510 READ NR(I),N0(I),A(I),GR(I),GW(I) 
520 NEXT I 


In FORTRAN hingegen gibt man in der Regel den Daten¬ 
bestand gesondert vor, und zwar in der Praxis meist 
im "fixed format", d.h. mit konstanten Feldlängen, also 
z.B. folgendermaßen: 

17 MUELLER 421.8584.5 

18 ROLF 381.7 75 

Dies bedingt, daß man im Programm dem Rechner die Feld¬ 
einteilung und auch den Typ der jeweiligen Feldvariab¬ 
len (numerisch reell, numerisch ganzzahlig oder alpha¬ 
numerisch) mitteilt. 


Genau dies leistet das FORMAT-Statement. 
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Per Voreinstellung gilt in FORTRAN folgende Regel; 

Alle Variablennamen, die mit den Buchstaben I bis N 
beginnen, werden als ganzzahlige Variablen betrach¬ 
tet (I-N = IN = Integer = ganzzahlig), alle anderen 
als reelle Variablen (von dieser Voreinstellung kann 
mit geeigneten Typvereinbarungs-Statements bei Bedarf 
abgewichen werden; dies soll hier aber nicht bespro¬ 
chen werden). 

Ganzzahlige Variablen werden mit dem sog. I-Format, 
reelle Variablen mit dem F-Format, String-Variablen 
mit dem A-Format behandelt (es gibt eine Vielzahl wei¬ 
terer Möglichkeiten - etwa zum Übergehen von Feldern, 
zum Zeilenwechsel, zur Behandlung doppelt genauer reel 
1er Größen und andere - auch darüber soll hier nicht 
gesprochen werden). 

Somit könnten die obigen Datensätze mit einem einzigen 
(wegen des "fixed format"), dem folgenden FORMAT-State 
ment beschrieben werden; 

FORMAT (12, A15, I2, F4.2, F4.1) 

Dabei bedeutet; 

12 ; Das erste Feld umfaßt 2 Anschläge 

und es handelt sich um eine ganzzahlige 
Größe (deshalb I für "Integer"); 
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Al 5 : 

Das zweite Feld ist ein alphanume¬ 
risches Feld, für das 15 Anschläge 

generell reserviert wurden; 

12 ; 

Im dritten Feld steht wieder eine 

zweistellige ganzzahlige Größe; 

F4.2 : 

Im folgenden Feld steht eine vierstel¬ 
lige reelle Größe (incl. Dezimalpunkt), 

wobei die beiden hinteren Stellen als 

Dezimalstellen zu interpretieren sind; 

F4. 1 : 

Entsprechend wie oben, allerdings wird 

hier nur eine Dezimalstelle mitgeführt, 

dafür aber zwei Stellen vor dem Dezi- 

malpunkt. 


Das Einlesen geschieht jetzt z.B. folgendermaßen: 
7 

C EINLESEN 

Z = 2 

DO 1 1 = 1 ,Z 

READ (5,99)NR(I), N(I), A(I), GR(I), GW(I) 
99 FORMAT (12, A15, 12, F4.2, F4.1) 

1 CONTINUE 

C WEITERE VERARBEITUNG 
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Es bräuchte in diesem Programmsegment nur Z geändert 
zu werden, wenn man einen größeren, also einen 
"echten" Datenbestand einiesen wollte. 

Anzumerken ist, daß wir dann dimensionieren müs¬ 
sen, wie das ja auch in BASIC der Fall ist. 

Betrachten wir abschließend ein einfaches FORTRAN- 
Programmbeispiel, dem wir das entsprechende BASIC- 
Programm gleich folgen lassen, so daß der Leser so¬ 
fort nachvollziehen kann, was im einzelnen geschieht. 


C PROGRAMM ZUR BESTIMMUNG DER SUMME 

C ALLER GANZEN ZAHLEN VON 1 BIS 100 

C 

C 

DO 10 1=1,100 
S=S+I 

10 CONTINUE 

WRITE (6,100)5X, "SUMME =",S 
100 FORMAT 16 
END 


Das entsprechende BASIC-Programm lautet; 

10 REM PROGRAMM ZUR BESTIMMUNG DER SUMME 
20 REM ALLER GANZEN ZAHLEN VON 1 BIS 100 
30 REM 

40 FOR 1=1 TO 100 
50 S=S+I 
60 NEXT I 

70 PRINT TAB(5)"SUMME =";S 
80 END 
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Auch die Programmiersprache COBOL, die wir 
uns ebenfalls in diesem Kapitel kurz anschauen 
wollen, weist gewisse Ähnlichkeiten zur Sprache 
BASIC auf; allerdings sind hier schon die formalen 
Unterschiede stärker ausgeprägt als im Vergleich 
zwischen FORTRAN und BASIC. 

Deshalb wollen wir hier die wichtigsten Statements 
nicht, wie bei der kurzen Besprechung der Sprache 
FORTRAN, einfach aufzählen, sondern sie anhand der 
Entwicklung eines Programmbeispiels kennenlernen. 

Der erste und wichtigste Unterschied zwischen BASIC 
und COBOL kommt dadurch zum Ausdruck, daß jedes COBOL- 
Programm grundsätzlich in vier Abschnitte aufgeteilt 
wird, die man Divisionen nennt. 

Es handelt sich um folgende Abteilungen: 

1. IDENTIFICATION DIVISION 

2. ENVIRONMENT DIVISION 

3. DATA DIVISION 

4. PROCEDURE DIVISION 


Mit diesen Überschriften müssen die vier Divisionen 
eingeleitet werden, die ihrerseits in Paragraphen 
unterteilt werden können. Dabei dienen die Paragraphen¬ 
namen als Ansprungadressen oder anders ausgedrückt: 
Programmteile, die während der Programmabarbeitung an¬ 
gesprungen werden sollen, müssen ihrerseits als Para¬ 
graphen gekennzeichnet sein, um über eine Ansprung¬ 
adresse verfügen zu können. 
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Weiterhin ist unter formalen Gesichtspunkten zu 
beachten, daß COBOL-Statements in Anschlag 8 oder 12 
beginnen (sog. A-Rand und B-Rand ; auf den Unterschied 
kommen wir noch zu sprechen), und daß sie mit einem 
Punkt zu beschließen sind. 

Was geschieht nun in den einzelnen Divisionen? 

Zunächst ist festzuhalten, daß es in den einzelnen 
Divisionen Anweisungen gibt, die obligatorisch sind, 
die also vom Programmierer angegeben werden müssen , 
während andere Anweisungen nur bei Bedarf in das 
COBOL-Programm aufgenommen werden. 

Wir werden uns im folgenden vornehmlich mit den erste- 
ren beschäftigen. 

In der IDENTIFICATION DIVISION erhält das Programm 
einen Namen und es können weitere Anweisungen aufge¬ 
nommen werden, die das Programm näher erläutern. 

Die Namensvergabe erfolgt mit dem Statement 

PROGRAM-ID. Name (beliebiger Kommentar) 

welches obligatorisch ist. Alle weiteren Angaben sind 
wahlfrei und sollen deshalb hier nicht betrachtet wer¬ 
den. 

Die Angaben in der IDENTIFICATION DIVISION beginnen 
am sog. A-Rand, also ab Anschlag 8 und werden durch 
Punkt und Leerzeichen abgeschlossen (eventuelle Fort¬ 
setzungszeilen beginnen am B-Rand, also ab Anschlag 12). 
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Der Anfang eines COBOL-Programms könnte also fol¬ 
gendermaßen aussehen: 

8 

IDENTIFICATION DIVISION. 

PROGRAM-ID. PROGRAMM NR.1. 


In der ENVIRONMENT DIVISION wird die jeweils be¬ 
nutzte Gerätekonfiguration erläutert, d.h. es werden 
Input-, Output- und ggf. Speichergeräte mit ihren logi¬ 
schen Gerätenummern genannt. 

Im einzelnen wird in dieser Division festgehalten, auf 
welchem Computer das Programm compiliert und auf wel¬ 
chem es ausgeführt wird. Darüber hinaus wird die Be¬ 
ziehung zwischen den verwendeten Dateien (häufig eine 
Input- und eine Outputdatei) und den Geräten der Peri¬ 
pherie, die für diese Dateien zuständig sein sollen, 
hergestellt. 

Da jeder Computerhersteller die Bezeichnungen und Ge¬ 
rätenummern der peripheren Einheiten unterschiedlich 
festlegen kann, hängt der Inhalt der ENVIRONMENT DIVI¬ 
SION stark vom jeweils benutzten Rechner ab. 


Diese Division wird in zwei Sektionen unterteilt; 

1. CONFIGURATION SECTION 

(sie beschreibt die benutzte Rechenanlage) 

2. INPUT-OUTPUT SECTION 

(sie beschreibt die Datei-Geräte-Zuordnung). 
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Unser oben begonnenes Programm könnte nun wie folgt 
fortgesetzt werden: 


8 

(1) IDENTIFICATION DIVISION. 

(2) PROGRAM-ID. PROGRAMM NR.1. 

(3) INVIRONMENT DIVISION. 

(4) CONFIGURATION SECTION. 

(5) SOURCE COMPUTER. APPLE. 

(6) OBJECT COMPUTER. APPLE. 

(7) INPUT-OUTPUT SECTION. 

(8) FILE-CONTROL. 

(9) SELECT EINGABE ASSIGN TO gerät. 

(10) SELECT AUSGABE ASSIGN TO Gerät. 


Um den Programmausschnitt leichter erläutern zu können, 
haben wir am linken Rand numeriert: 


DIESE NUMERIERUNG IST NICHT 
BESTANDTEIL DES COBOL-PROGRAMMS! 


Die Sätze (1) und (2) sind uns schon bekannt. 

Mit Satz (3) wird die zweite Division eingeleitet, 
mit Satz (4) deren erste Sektion. 

In Satz (5) wird der Übersetzungs-Computer, in Satz 
(6) der Computer, auf dem gerechnet werden soll, ge¬ 
nannt. Häufig dürften beide identisch sein. 

Von der Reihenfolge der Anweisungen, wie sie sich 
oben darstellt, darf nicht abgewichen werden. 

Mit Satz (7) wird die zweite Sektion der zweiten Divi¬ 
sion gekennzeichnet. Ihr erstes obligatorisches State¬ 
ment ist das FILE-CONTROL-Statement, das die Datei-Zu¬ 
ordnungen einleitet. 
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In Satz (9), der wie auch Satz (10) quasi Unterbe¬ 
standteil der FILE-CONTROL-Anweisung ist, und des¬ 
halb ab Anschlag 12 beginnt, werden die Geräte zu¬ 
geordnet. 

Allgemeine Schreibweise: 

SELECT Name der Datei ASSIGN TO Gerätenummer 

Welche Geräteangabe von Fall zu Fall einzugeben ist, muß 
den jeweiligen Benutzerhandbüchern entnommen werden. 


In der DATA DIVISION wird der Aufbau eines Datensatzes 
detailliert vorgestellt (insoweit etwa vergleichbar mit 
dem FORTRAN-Statement FORMAT). 

Dabei spielt das sog. Stufenkonzept eine wesentliche 
Rolle: Der jeweilige Datensatz wird in Datengruppen 
unterteilt, diese wiederum in Untergruppen etc. 

Das folgende Beispiel illustriert die Vorgehensweise. 


Gegeben sei folgender Datensatz aus einer Kundendatei: 
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Nr. 

Name 

Adresse 

... 


Vorname 

Nachname 

Post¬ 

leitzahl 

Ort 

Wohnung 




Straße Nr. 


Man erkennt hier eine maximal dreistufige Unterglie¬ 
derung, die aber nicht in jeder Datengruppe "durchge¬ 
halten" werden muß. 

Ähnlich wie im FORMAT-Statement aus FORTRAN muß nun 
dem Rechner die Feldaufteilung mitgeteilt werden. Dies 
geschieht mit der sog. PICTURE-Klausel (PICTURE = 

Bild), wie das folgende Beispiel, von dem obigen Daten¬ 
satz ausgehend, zeigt: 

Stufenkonzept-Beispiel: 


KUNDENSATZ. 

02 

NR 

PICTURE IS 9(4). 

02 

NAME. 


03 

VORN PICTURE IS X(10). 


03 

NACHN PICTURE IS X(15). 

02 

ADRESSE. 


03 

PLZ PICTURE IS 9(4). 


03 

ORT PICTURE IS X(20). 


03 

WOHNUNG. 


04 STR PICTURE IS X(15). 
04 HNR PICTURE IS 9(3). 
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Wir erkennen eine stufenweise Untergliederung ge¬ 
mäß des schematischen Aufbaus eines Datensatzes, 
wie er weiter oben vorgestellt wurde. 

Diejenigen Felder, die weiter unterteilt werden 
(gleichgültig auf welcher Stufe sie sich befinden), 
erhalten keine PICTURE-Klausel (z.B. 02 NAME.); 
diejenigen hingegen, die nicht mehr aufgeteilt wer¬ 
den (z.B. 03 PLZ), erhalten die PICTURE-Klausel, 
die dem Rechner sagt, wie das jeweilige Feld aussieht 
(diese Felder haben wir im Schema weiter oben dop¬ 
pelt unterstrichen; diese Unterstreichungen folgen 
dem unteren Rand dieses Schemas). 

Bei den PICTURE-Klauseln wird die Ziffer 9 zur Kenn¬ 
zeichnung numerischer Felder, der Buchstabe X zur 
Kennzeichnung alphanumerischer Felder verwendet (es 
gibt viele weitere Kennungsmöglichkeiten, z.B. zur 
Kennzeichnung von Dezimalpunkt und Dezimalstellen u.ä.), 

PICTURE IS 9(4) bedeutet also z.B., daß ein vierstel¬ 
liges numerisches Feld betrachtet wird (statt 9(4) 
dürfte auch 9999 geschrieben werden)* 

Nur am Rande sei hier schon darauf hingewiesen, daß 
auf dieses Stufenkonzept völlig verzichtet werden kann, 
wenn nur kleine Datenmengen ein- oder ausgegeben 
werden sollen (z.B. dialogorientiert). Darauf kommen 
wir weiter unten zu sprechen. 
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Es versteht sich, daß sowohl für den einzugeben¬ 
den Datenbestand eine derartige Strukturierung vor- 
genommen werden muß, wie auch für den Datenbestand, 
der als Ergebnis des Datenverarbeitungsprozesses aus¬ 
gegeben werden soll. Werden mehr als zwei Dateien 
(Input- und Outputdatei) in einem Datenverarbeitungs¬ 
prozeß verwendet, benötigt oder angelegt, dann braucht 
man natürlich noch weitere derartige Strukturierun¬ 
gen. 

Diese Strukturierungen müssen - wenn sie überhaupt 
erforderlich sind - in der ersten Sektion der DATA 
DIVISION erfolgen, die die Überschrift FILE SECTION 
trägt. Ihr erstes Statement ist das sog. FD-Statement 
(FD = Fiie-Declaration). Es lautet allgemein; 

FD Dateiname Dateibeschreibung 

In der Datenbeschreibung wird z.B. mitgeteilt, wie¬ 
viele Datensätze die Datei enthält, wie lang ein Da¬ 
tensatz ist, ob die Datensätze sequentiell oder nicht 
gespeichert sind, ob und ggf. wie die Datei geschützt 
ist u.ä. Auf Einzelheiten dazu soll hier nicht einge¬ 
gangen werden. 

Die zweite Sektion der DATA DIVISION ist die WORKING- 
STORAGE SECTION, in der die Speicherplätze für all die¬ 
jenigen Daten reserviert und beschrieben werden, die 
nicht über Ein- oder Ausgabedateien verwaltet werden. 
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Es handelt sich dabei um Hilfsfelder, die im Laufe 
des Datenverarbeitungsprozesses nach der Eingabe 
und vor der Ausgabe benötigt werden, bzw. um Ein¬ 
und/oder Ausgabefelder bei kleinen Datenmengen, die 
nicht über Dateien organisiert wurden. 


In der WORKING-STORAGE SECTION wird ebenfalls mit 
dem Stufenkonzept gearbeitet, allerdings entfällt 
natürlich das FD-Statement. 

Hier wird es relativ häufig geschehen, daß man auch 
für sich allein stehende Werte betrachtet, die also 
nicht als Teil eines Stufenkonzepts einzuordnen sind. 
Für solche Felder ist die Stufennummer 77 reserviert 
(sie kann für den gleichen Zweck auch in der FILE 
SECTION verwendet werden). 

Beispiel; 


8 

WORKING-STORAGE SECTION 
77 ZAHL1 PICTURE IS 9999. 

77 ZAHL2 PICTURE IS 9999. 

01 SATZ. 

02 MULT PICTURE IS 9(8). 

02 DIV PICTURE IS 999V99. 


(Das V in der letzten PICTURE-Klausel steht für die 
Kennzeichnung der Lage eines Dezimalpunkts.) 
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Wenden wir uns nun der letzten Division, der 
PROCEDURE DIVISION zu: Hier finden sich die Anwei¬ 
sungen zur Verarbeitung der eingegebenen Daten. 

Die wichtigsten dieser Anweisungen sind die folgen¬ 
den: 


1. Dateieröffnung : 

Mit der OPEN-Anweisung müssen Ein- und Ausgabedateien, 
sofern sie benutzt werden sollen, eröffnet werden. 


Beispiel: OPEN INPUT EINGABE. 

OPEN OUTPUT AUSGABE. 


Allgemein: 


OPEN 


I Dateiname. 
OUTPUT J 


2. Schließen von Dateien ; 

Jede geöffnete Datei muß vor Programmende wieder 
geschlossen werden: 

Allgemein: CLOSE Dateiname. 


3. Lesen von Eingabedateien ; 

Mit der READ-Anweisung werden die Datensätze der 
Eingabedatei gelesen. 


Allgemein: 


READ Dateiname RECORD AT END Anweisung. 
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4. Ausgabe von Datensätzen : 

Mit der WRITE-Anweisung werden Ergebnisse ausge¬ 
geben. 

Allgemein: WRITE Datensatzname. 

Im Gegensatz zur READ-Anweisung taucht hier also 
nicht der Dateiname der Ausgabedatei auf, sondern 
der Datensatzname (er entspricht derjenigen Feld¬ 
bezeichnung, die im Stufenkonzept der Ausgabedatei¬ 
beschreibung in der DATA DIVISION die Stufennummer 
01 trägt). 

Der Sinn dieses Unterschieds liegt darin, daß per 
READ die gesamte Eingabedatei gelesen wird (und ge¬ 
lesen werden soll), während per WRITE nur jeweils 
Datensatz für Datensatz (also immer nur jeweils einer) 
ausgegeben wird. 


5. Die MOVE-Anweisung : 

Allgemein: MOVE Sendefeld TO Empfangsfeld 

Diese Anweisung entspricht dem LET-Statement aus BASIC. 

Es gibt auch eine einfachere Möglichkeit der Wertzu¬ 
weisung, die sich bei kleinen Datenmengen empfiehlt 
und dann schon in der WORKING-STORAGE SECTION der DATA 
DIVISION erfolgt. 
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Beispiel; 


WORKING-STORAGE SECTION 

77 ZAHLl PICTURE IS 9999 VALUE IS 1234. 

77 NAME1 PICTURE IS X(4) VALUE IS *VOSS'. 


6. Arithmetische Ausdrücke : 

Die Grundrechenarten werden in COBOL nach dem Muster 
der folgenden Beispiele durchgeführt: 


Addieren; 

ADD a 

Rechnung: 

TO b. 

b = a+b 

Subtrahieren; 

SUBTRACT a FROM b 

Rechnung: b = b-a 

Multiplizieren: 

MULTIPLY a BY b. 

Rechnung: b = a*b. 

Dividieren: 

DIVIDE 

a INTO b. 


Rechnung: 

» -1 


Eine alternative Formulierungsmöglichkeit, die für 
alle vier Rechenarten entsprechend gilt, soll nur 
am Beispiel des Addierens demonstriert werden: 

ADD a b GIVING c 


Rechnung; c = a+b 
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Für kompliziertere Berechnungen empfiehlt sich die 
COMPUTE-Anweisung: 

COMPUTE a = arithmetischer Ausdruck 


7. Bedingter Sprung ; 

Die allgemeine Form des sog. abhängiggen GO TO lautet: 
GO TO Liste DEPENDING ON Variable 


Hat "Variable" den Wert 1, wird der Paragraph mit dem 
ersten Namen aus "Liste" angesprungen; 

hat "Variable" den Wert 2 , erfolgt ein Sprung zum zwei¬ 
ten Namen aus "Liste" usw. 

Entsprechend gibt es auch eine IF-Anweisung, die folgen¬ 
de allgemeine Form aufweist: 


IF Bedingung 


Anweisung 
NEXT SENTENCE 


(ELSE...) 


Diese Anweisung funktioniert im Prinzip wie die 
IF...THEN(...ELSE...)-Anweisung aus BASIC. 


Als Vergleichsoperatoren können verwendet werden: 


> 


< 
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8. Beendigung des Programms ; 

Ein COBOL-Programm wird mit der Anweisung 

STOP RUN. 


beendet. 


Dies sind die wichtigsten (aber keineswegs alle) 
COBOL-Anweisungen. 

Sie sollen noch um die beiden Anweisungen ergänzt 
werden, mit denen kleine Datenmengen ein- bzw. aus¬ 
gegeben werden können. In der DATA DIVISION muß dann 
lediglich in der WORKING-STORAGE SECTION Platz ge¬ 
schaffen werden und die etwas aufwendige Stufenkon¬ 
zeptbildung wird entbehrlich. 

Eingabe: ACCEPT Variablenname. 

Ausgabe: DISPLAY ('Text') Variablenname. 


Betrachten wir auch hier abschließend ein einfaches 
Beispiel, dem wir wieder das entsprechende BASIC- 
Programm gegenüberstellen: 
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8 

INDIFICATION DIVISION 
PROGRAM“ID.QUADRIERUNG. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. APPLE. 
OBJECT-COMPUTER. APPLE. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

77 EIN PICTURE IS 9(4). 

77 AUS PICTURE IS 9(8). 

PROCEDURE DIVISION. 

ANFANG. 

ACCEPT EIN. 

COMPUTE AUS= EIN+EIN. 
DISPLAY ’QUADRAT= *,AUS. 
ENDE. 

STOP RUN. 


In diesem Programm wird eine einzelne einzugebende 
Zahl quadriert und das Rechenergebnis direkt ausge¬ 
geben . 

In der Programmiersprache BASIC kann diese Aufgabe 
durch das folgende einfache Programm erledigt werden. 


10 

INPUT "BITTE EINE 

ZAHL : 

20 

A = E«E 


30 

PRINT "QUADRAT =" ; 

?A 

40 

END 



Wir sehen, daß dieses BASIC-Programm im Vergleich viel 
einfacher ausfällt. Die Vorteile der COBOL-Programmie- 
rung erweisen sich in der Tat erst dann, wenn sehr große 
Datenmengen zu verarbeiten sind und wenn man die zu¬ 
sätzlichen und speziellen COBOL-Möglichkeiten kennenge¬ 
lernt hat. 


8.3 Software 


Für BASIC-Rechner, wie z.B. den APPLE II, steht 
eine Reihe von qualifizierten Software-Angeboten 
zur Verfügung. Dieses Angebot ist so umfangreich, 
daß es völlig ausgeschlossen ist, hier einen kom¬ 
pletten überblick bieten zu wollen. 

Einige Stichworte sollen jedoch eine erste Vorstel¬ 
lung von den Möglichkeiten vermitteln, die sich bie¬ 
ten. 

Software-Angebote können einmal danach unterteilt 
werden, in welchen Praxisbereichen sie sinnvoll ein¬ 
gesetzt werden, zum anderen danach, welche der.prin¬ 
zipiellen Computeraktivitäten mit diesen Programman-• 
geboten unterstützt werden. 

Bezüglich der Praxisbereiche bietet sich die folgen¬ 
de Einteilung an (wobei wiederum kein Anspruch auf 
Vollständigkeit dieser Aufzählung erhoben wird): 

1. Programme zur Lösung mathematischer Probleme; 

2. Programme im betrieblichen Einsatz 

(z.B. Buchhaltung, Lagerverwaltung, Kunden¬ 
dateien, Kalkulation u.ä.); 

3. Programme für statistische Auswertungen; 

4. Programme zur Unterstützung von Büro- 
und Verwaltungsarbeiten; 
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5. Programme zur Erstellung von Planungen, 
Entwürfen, Skizzen, Zeichnungen und dergl.; 

6. Programme zur Steuerung von Automaten und 
Maschinen; 

7. Nicht zu vergessen, aber vielleicht nicht 
so relevant, die Spielprogramme. 


Betrachtet man die Computeraktivitäten, die per Soft¬ 
ware unterstützt werden, so bietet sich die folgende 
Einteilung an: 

1. Rechenprogramme 

2. Textverarbeitungsprogramme 

3. Graphikprogramme. 

Dazu einige besonders typische Beispiele: 

Als "Rechenprogramme" können beispielsweise alle 
Kalkulationsprogramme bezeichnet werden, die für den 
APPLE II zur Verfügung stehen und die insbesondere 
im betrieblichen Bereich eine große Bedeutung erlangt 
haben. Wesentliche Vertreter dieser Programmgruppe 
sind etwa die Programme 

VisiCalc (vorgesehen für APPLE III) 
und MULTIPLAN 
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Speziell MULTIPLAN ist ein Kalkulationsprograiran für 
den APPLE Ile. Es eignet sich für Tabellenauswertungen, 
Budgetplanungen, Trendberechnungen und dergleichen 
(auf Einzelheiten dieser und der folgenden Program¬ 
me soll nicht eingegangen werden). 

Wenn wir den APPLE II mittels einer Zusatzkarte auf 
ein anderes Betriebssystem umstellen, dann kann man 
auch weitere, teilweise sehr leistungsfähige Kalkula¬ 
tionsprogramme einsetzen. 

Es versteht sich, daß auch branchenspezifische Program¬ 
me zur Verfügung stehen (von Programmen für Architekten 
und Ärzten bis hin zum Verlags- und Versicherungswesen). 
Auch darüber soll aber hier nicht gesprochen werden. 

Zu den Rechenprogrammen wird man auch alle diejenigen 
Programme zählen, die für spezielle mathematische Auf¬ 
gaben entwickelt wurden. Beispiele dafür sind Program¬ 
me für Vektor- und Matrizenrechnungen, Programme für 
Differential- und Integralrechnung und dergl. 

Ein spezielles Gebiet in diesem Zusammenhang ist die 
mathematische Statistik. Hier stehen Programme für 
unterschiedliche Zwecke zur Verfügung. 

1. Dialogorientierte Dateneingabe, Datenkon¬ 
trolle und deskriptive statistische Ana¬ 
lyse (z.B. System DATAN II von R. Schnell); 

2. Inferenzstatistische Datenanalyse durch 
Einsatz der bekannten statistischen Test¬ 
verfahren (z.B. System REPTEST von R.Prust); 
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з. Multivariate statistische Analysever¬ 
fahren (z.B. System TAXONOM von Weber) 

и. ä. 


Auch für den Bereich der Textverarbeitung stehen 
Programme zur Verfügung, die entweder speziell auf 
das Betriebssystem des APPLE II abgestellt sind oder 
die nach Implementierung eines anderen Betriebssystems 
benutzt werden können. 

Zur ersten Gruppe gehören die Programme APPLE WEITER 
und SCRIPT; zur zweiten Gruppe gehört das berühmte 
und weitverbreitete System WORDSTAR. 

Mit Textverarbeitungssystemen kann man Briefe, Massen¬ 
schreiben, Rechnungen und dergl. abfassen, aber auch 
Manuskripte erstellen, wissenschaftliche Texte u.ä. 
Ohne Probleme sind Schriftartenwechsel möglich, nach¬ 
trägliche Fehlerkorrekturen, Hinzufügen oder Streichen 
von Texten, Anfügung von Fußnoten, Einfügung von Son¬ 
derzeichen, Unterstreichungen usw. 

Einzelheiten sind den jeweils mitgelieferten Hand¬ 
büchern zu entnehmen. 


Eine spezielle Gruppe von Programmen dient der Datei¬ 
verwaltung. Man versteht darunter alle diejenigen Pro¬ 
gramme, mit denen größere Datenmengen geschickt ein¬ 
gegeben und gespeichert werden und mit denen die so 
entstehenden Dateien dann optimal verwaltet werden können. 
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Dies betrifft beispielsweise die Erweiterung oder 
Verkürzung der Datei, ihre Veränderung und vor allem 
das Aufsuchen einzelner Datensätze nach vorgegebe¬ 
nen und miteinanderkombinierbaren Suchkriterien und 
Such-Stichworten. 

Typische Vertreter derartiger Programme für den APPLE 
II sind etwa die Programme QuickFile und ProFit II. 

Die letzte genannte Gruppe betrifft die Graphikpro¬ 
gramme. Wie wir in einem früheren Kapitel gesehen ha¬ 
ben, ist der APPLE II graphikfähig und es stehen eine 
Reihe von Anweisungen zur Verfügung, mit denen graphi¬ 
sche Ausgaben erzeugt werden. 

Zusätzlich gibt es Hilfsprogramme etwa zur Erzeugung 
betrieblich nutzbarer Graphiken (Zeitreihen, Kurven- 
und Balkendiagramme, Kreisdiagramme, Beschriftungen, 
Farbgraphiken, Schraffuren usw.) oder zur Erzeugung 
architektonischer oder konstruktionstechnischer Zeich¬ 
nungen (über künstlerische Graphiken oder die Bedeu¬ 
tung der Graphikprogrammierung im breiten Bereich der 
Computerspiele soll hier nicht gesprochen werden). 

Zur ersten Gruppe gehören Programme, wie z.B. Business 
Graphics oder CHARTMASTER (beide für APPLE Ile oder 
APPLE III). 

Zur zweiten Gruppe gehören die neu auf den Markt kom¬ 
menden Programme, die für die CAD-Programmierung (CAD 
Computer Aided Design = Computergestütztes Ent¬ 

wickeln und Konstruieren) bereitgestellt werden. 

Auf Einzelheiten derartiger Programme soll hier nicht 
mehr eingegangen werden. 
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ANHÄNGE 
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Anhang I: Fehlermeldungen (Auswahl) 


BAD SUBSCRIPT ERROR 

Eine Variable enthält weniger oder mehr Indizes 
als in der DIM-Anweisung vorgesehen ist oder 
ein Indexwert ist größer als er aufgrund der DIM- 
Anweisung sein darf. 


CAN'T CONTINUE ERROR 

Das Kommando CONT kann nach einer Programmunter¬ 
brechung nicht ausgeführt werden (etwa, weil in der 
Zwischenzeit eine Programmänderung vorgenommen wurde). 


DISK FULL 

Die Diskette ist voll belegt. Weitere Informationen 
können nicht gespeichert werden. 


DIVISION BY ZERO ERROR 

Es wurde versucht, durch Null zu dividieren. 


END OF DATA 

Es wurde versucht, von einer Diskette Daten zu lesen, 
die dort nicht gespeichert sind. 
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Anhang I 


FILE LOCKED 

Es wurde versucht, eine schreibgeschützte Disketten¬ 
datei zu verändern. 


FILE NOT FOUND 

Es wurde versucht, auf eine nicht existierende Datei 
zurückzugreifen. 


FILE TYPE MISMATCH 

Es wurde eine Datei mit einer Anweisung angesprochen, 
die für diese Datei nicht zulässig ist. 


ILLEGAL QUANTITY ERROR 

Ein Zahlenwert liegt außerhalb des zulässigen Be¬ 
reichs. 


I/O ERROR 

Eine Diskette wurde angesprochen, aber nicht er¬ 
reicht (Beispiel: Nichtinitialisierte Diskette). 
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NEXT WITHOUT FOR ERROR 

Es wurde eine NEXT-Anweisung erreicht ohne dazu¬ 
gehöriges FOR...TO...Statement. 


OUT OF DATA ERROR 

Es wurde versucht, mehr Daten zu lesen als vor¬ 
handen sind. 


OUT OF MEMORY ERROR 

Die Speicherkapazitäten reichen für ein bestimm¬ 
tes Programm nicht aus. 


OVERFLOW ERROR 

Eine Zahl ist zu groß (größer als (1.7E+38|). 


REDIM'D ARRAY ERROR 

Es wurde versucht, eine bereits dimensionierte 
Variable erneut zu dimensionieren. 


RETURN WITHOUT GOSUB ERROR 

Es wurde eine RETURN-Anweisung ohne dazugehörige 
GOSUB-Anweisung gefunden. 
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SYNTAX ERROR 

Formaler Fehler in einer Anweisung oder Fehler, 
für den es keine spezielle Fehlermeldung gibt. 


TYPE MISMATCH ERROR 

Numerische und String-Angaben wurden unzulässi¬ 
gerweise in einer Anweisung gemischt. 


UNDEFINED FUNCTION ERROR 

Es wurde versucht, eine nicht definierte Funktion 
aufzurufen. 


UNDEFINED STATEMENT ERROR 

Eine Anweisung verzweigt zu einer nicht existieren¬ 
den Satznummer. 
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Anhang II; Wichtige Unterprogrammadressen 


CALL - 

1052 

Piepston erzeugen 

CALL - 

1008 

Cursor eine Spalte nach 
links verschieben 

CALL - 

998 

Cursor eine Zeile nach 
oben verschieben 

CALL - 

958 

Bildschirm zwischen Cursor 
und unterem Rand löschen 

CALL - 

922 

Cursor eine Zeile nach 
unten verschieben 

CALL - 

868 

Bildschirmzeile rechts vom 
Cursor löschen 

CALL - 

336 

Aufrufen des BASIC-Inter¬ 
preters 

CALL - 

211 

ERR ausgeben und Piep.ston 
erzeugen 

CALL - 

151 

Monitor aufrufen 
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Anhang III; Speicheradressen (Auswahl 


Adressen 

Funktion 

Dezimal 

Hexadezimal 


32 

$20 

Linker Bildschirmrand; 
zulässige Werte: 0...39 

33 

021 

Bildschirmbreite; zulässige 

Werte: 

0. . . (40-PEEK(32)) 

34 

022 

Oberer Bildschirmrand; 
zulässige Werte: 0...23 

35 

023 

Unterer Bildschirmrand; 
zulässige Werte: 0...23, wenn 
die folgende Bedingung erfüllt 
ist: 



PEEK(34)< PEEK(35) 

36 

024 

Horizontale Cursorposition; 
zulässige Werte: 0...PEEK(33) 

37 

025 

Vertikale Cursorposition; 
zulässige Werte: 0...23 

50 

032 

Ausgabemodus für den Bild¬ 
schirm; 

mögliche Werte: 



63 - INVERSE 

127 - FLASH 

255 - NORMAL 

1024 

bis 

2047 

0400 

bis 

07FF 

Bildschirmspeicherbereich für 
die Textseite 1; 
zulässige Werte: Alle ASCII- 
_Bildschirmcgdezahlen_ 










Anhang III 


Adressen 

Funktion 

Dezimal 

Hexadeziinal 


-16368 

(49168) 

$C010 

Flag für erfolgte Tastatureingabe 

-16384 

(49152) 

0C000 

Enthält den Code des letzten 
eingegebenen Zeichens 

103/104 

$67/68 

Programmanfang 

105/106 

$69/6A 

LOMEM - enthält die kleinste von 
BASIC ansprechbare Adresse 

115/116 

$73/74 

HIMEM - enthält die größte von 
BASIC ansprechbare Adresse 

175/176 

$AF/B0 

Erste Adresse hinter dem Pro- 
grairanende; in der Regel also 
Beginn der Variablenwerte 

109/110 

$6D/6E 

Ende des benutzten numerischen 
Speichers 

218/219 

$DA/DB 

Zeilennummer, in der der letzte 
Fehler aufgetreten ist 

222 

$DE 

Codeziffer des letzten Fehlers 

216 

$D8 

Errorflag für ONERR...GOTO- 
Befehle 
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Anhang IV; Speichereinteilung des APPLE II 


Adressen 

dezimal hexadezimal 

Art 

d. Speichers 

Verwendung 

0-255 

0-FF 

S/L 

Sys temprogramme 

256-511 

100-1FF 

S/L 

Stapel 

512-767 

200-2FF 

S/L 

Eingabepuffer 
für Tastatur 

768-1023 

300-3FF 

S/L 

Zeiger des Monitors 

1024-2047 

400-7FF 

S/L 

Ausgabepuffer 1 für 
Textdaten und graphische 
E)aten niedriger Auflösung 

2048-3071 

800-BFF 

S/L 

Ausqabepuffer 2 für 
Textdaten und graphische 
Daten niedriger Auflösung 

3072-8191 

C00-1FFF 

S/L 

frei 

8192-16383 

2000-3FFF 

S/L 

Ausgabepuffer 1 für gra¬ 
fische Daten hoher Auf¬ 
lösung 

16384-24575 

4000-5FFF 

S/L 

Ausgabepuffer 2 für gra¬ 
fische Daten hoher Auf¬ 
lösung 

24576-49151 

6000-BFFF 

S/L 

frei 

49152-53247 

COOO-CFFF 


Ein/Ausgabeadressen 

53248-65535 

DOOO-FFFF 

Festwert 

Integer-BASIC-Interpreter 
i^lesof t-Interpreter, 
Monitor etc. 





394 


Stichwortverzeichnis 
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** A ** 


A-RAND 

366 

ABS 

13 

ACCEPT 

37S 

ADD 

376 

ADRESSE 

130 

AENDERUNG 

298 

ALGOL 

113 

ANWEISUNG 

8 

ANWEISUNG, ARITHMETISCHE 

357 

APA 

263, 265 

APPEND 

64, 72 

APPLE-DOC 

84, 263, 288 

APPLE-IIC 

4 

APPLE-WRITER 

333 

ARITHMETISCHE ANWEISUNG 

357 

ARITHMETISCHER AUSDRUCK 

376 

ARITHMETISCHES MITTEL 

69 

ARRAY X 

53 

ASC 

24, 97 

ASCI I 

98 

ASSEMBLER 

111, 112, 129 

ASSEMBLER-ANWEISUNG 

120 

ASSEMBLER-DI REKTI 

124 

AUSDRUCK, ARITHMETISCHER 

376 

AUSFUEHRUNGSGESCHWINDIGKEIT 

■ 198 

AUSGABE 

10, 43, 44 

AUSGABEANWEISUNG 

10 

AUSPRAEGUNG 

53 

AUSWERTUNG, STATI STISCHE 

67 


** B ** 


B-RAND 

366 

BACKSPACE 

240 

BALLSPIEL 

171 

BASIC 

7, 8 

BASIC-DIALEKT 

3 

BEDINGTER SPRUNG 

17 

BETRIEBSSYSTEM 

9, 51 

BILDSCHIRMAUSGABE, 

FORMATIERTE : 

BILDSCHIRMBEREICH 

92 
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BILDSCHIRMBREITE 

82 

BILDSCHIRMFENSTER 

82, 

BILDSCHIRMGESTALTUNG 

322 

BILDSCHIRMMASKE 

334 

BILDSCHIRMRAND 

82, 

BINAERDATEI 

127 

BINAERSYSTEM 

1 15 

BLOAD 

128 

BREAK 

103 

BSAL^E 

128 

BUSINESS-GRAPHICS 

384 

BYTE 

53 


** C ** 



CAD 

384 


CALL 

129, 

, 359 

CASE 

53 


CATALOG 

26, 

62 

CHARACTER 

359 


CHARTMASTER 

384 


CHR^ 

24 


CLOSE 

56, 

374 

COBOL 

113, 

, 353 

COLOR 

162 


COMPILER 

1 1 1 


COMPUTE 

377 


CONFI GLIRATI ON-SECTI ON 

367 


CONT 

17, 

101 , 

CONTI NLIE 

358 


COS 

13 


CTRL 

16, 

47 

CTRL-B 

248 


CTRL-C 

16, 

131 

CTRL-D 

42, 

43, 

CTRL-F 

248 


CTRL-I 

246 


CTRL-M 

249 


CTRL-N 

248 


CTRL-0 

247 


CTRL-P 

247 


CTRL-Q 

249 


CTRL-R 

249 


CTRL-S 

17 


CTRL-X 

249 


CTRL-2 

247 


CURSOR 

142 



, 354, 


107 


247 


365 
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D ** 


DATA 

20, 359 

DATA-DIC»ISION 

365, 369 

DATAN-II 

382 

DATEI 

52, 53, ' 

DATEINAME 

25, 56 

DATEI 'v^ERLAENGERUNG 

63 

DATEN 

9 

DATENAUSTAUSCH 

134 

DATENEINGABE 

20 

DATENMATRIX 

53 

DATENSATZ 

53, 360 

DELETE 

26, 62 

DEZIMALPUNKT 

1 1 

DIM 

20 

DIMENSION 

359 

DIREKTER SPEICHERZUGRIFF 

80 

DIREKTER ZUGRIFF 

54 

DISKETTE 

25 

DISKETTENLAUFWERK 

51 

DISKETTENNUTZUNG, INTERAKTIVE 56 

DISPLAY 

378 

DIVIDE 

376 

DIVISION 

365 

DO 

358 

DOKUMENTATION 

287 

DOS 

5, 106 

DOS-TOOL-KIT 

263, 265 

DREIDIMENSIONALE GRAPHIK 

186 

DRUCKER 

41 


** E ** 


EDITIEREN 

EFFEKT, GRAPHISCHER 
EINGABE 

EINGABEANUEISUNG 

END 

ENC» I RONMENT-DI I SI ON 

ESC 

ESC-1 

ESC-2 


238 

161 

12 

10 

14, 360 
365, 367 
238, 239 
245 
245 
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ESC-D 

239 

ESC-E 

239 

ESC-F 

239 

ESC-I 

239 

ESC-J 

240 

ESC-K 

241 

ESC-M 

241 

ESCAPE-MODUS 

239 

EXEC-DATEI 

220 

EXP 

13 


** F ** 


FÄRB-INTERFACE 
FARBDEMONSTRATION 
FARBE 

FARBFERNSEHER 

FARBMONITOR 

FD 

FEHLERMELDUNG 

FELD 

FIELD 

FILE 

FILE-CONTROL 

FLASH 

FLUSSDIAGRAMM 
FOR...TO 
FORMAT 
FORMATIERTE 
FORMATIERUNG 
FORTRAN 
FORTRAN-77 
FORTRAN-I^v^ 
FUNKTION 
FUNKTION, 


162 

167 

161, 162, 177 
162 
162 
372 

145, 386 

53 

53 

53, 56 
368 

99, 161 

35 

19 

356, 360 
RMAUSGABE 323 
25 

353, 354 


BILDSCHI 

113, 

354 

355 
13 

LINEARE 180 


** G ** 


GERADE 

GERAET, PERIPHERES 
GET 

GITTER 


180 

41 

28, 60, 
166 


103, 


106, 


198 


399 


GOSUB 

18, 

195, 

GOTO 

16, 

195, 

GR 

158 


GRAPHIK 

45, 

188 

GRAPHIK, DREIDIMENSIONALE 

186 


GRAPHIK, HOCHAUFLOESENDE 

156, 

174 

GRAPHIK-ANWEISUNG 

1 63, 

178 

GRAPHIK-AUSGABE 

49 


GRAPHIKMODUS 

158 


GRAPHIKPROGRAMM 

156 


GRAPHISCHER EFFEKT 

161 



** H ** 


HAUPTPROGRAMM 

18 


HCOLOR 

177 


HEXADEZIMALSYSTEM 

1 17 


HGR 

176 


HIMEM 

174 


HISTOGRAMM 

1 68 


HLIN 

164 


HOCHAUFLOESENDE GRAPHIK 

156j 

. 174 

HOME 

29, 

82, 1 

HPLOT 

178 


HTAB 

29, 

322 


## I 


IDENTIFICATION-DIL^ISION 

365 

, 366 


IF 

357 

, 358 

, 377 

IF...THEN 

17, 

195, 

210 

INDIZIERTE VARIABLE 

21 



INFORMATIONSEINGABE 

1 3 



INIT 

25, 

55, 

303 

INITIALISIERUNG 

25, 

55, 

303 

INPUT 

13 



INPUT-OUTPUT-SECTION 

367 



INT 

13 



INTERAKTIVE DISKETTENNUTZUNG 

56 


INTERFACE 

42 



INCERSE 

99, 

161 



377 


4oo 


** K ** 


KOMMANDO 

9, 

KOMMENTAR 

360 

K 0 0 R DINAT EN S Y ST EM 

179 

KORRELATIONSKOEFFIZI ENT 

70 

KREIS 

183 


** L ** 


LEFT-$ 

24, 

97 

LEN 

23 


LET 

12, 

20 

LINEARE FUNKTION 

180 


LINEDOC 

263 j 

, 288 

LIST 

15, 

81 

LOAD 

26 


LOESCHEN 

62, 

134 

LOG 

13 


LOMEM 

174 



** M 


MASCHINENPROGRAMM 

80, 112 

MASCHINENSPRACHE 

111, 130 

MASKENGENERATOR 

337 

MENUE 

209 

MENUETECHNIK 

209 

METHODE, STATISTISCHE 

69 

MID^ 

24, 97 

MISCHEN 

188, 220 

MITTEL, ARITHMETISCHES 

69 

MITTELUERT 

69 

MON 

61 

MONITOR 

129, 131 

MOUE 

375 

MULTI PLAN 

381 

MULTI PLY 

376 


295 


140 


265 


4o1 


** N ** 


NEW 

NEXT 

NOMON 

NORMAL 

NORMALGRAPHIK 


15 

19 

öl 

99, 

156 


161 

158 


** 0 ** 


OBJECT-PROGRAM 
ON...GOSUB 
ON...GOTO 
OPEN 


112 

209, 211 
209 

56, 72, 374 


** P ** 


PARAGRAPH 

PEEK 

PERIPHERES GERAET 
PICTURE 

PICTURE-KLAUSEL 

PLOT 

POKE 

POSITIONIERUNG 

PRU 

PRINT 

PRINT-USING 

PROBLEMANALYSE 

PROCEDURE-DIUISION 

PRODOS 

PROFIT-II 

PROGRAM-ID 

PROGRAM-LINE-EDITOR 

PROGRAMM 

PROGRAMMABLAUF 

PROGRAMMABLAUFPLAN 

PROGRAMMANWEISUNG 

PROGRAMMIERHILFEN . 

PROGRAMMIERSPRACHE 

PROGRAMMSCHLEIFE 

PROGRAMMSTRUKTUR 

PROGRAMML^ERZWEI GUNG 


365 

81 , 82 

41 
370 
370 
163 
81 
322 

42 

10, 81, 357 

328 

30 

365, 374 
5 

384 

366 

6, 233, 245 
8 

195 

35 

9 

263 

353 

19 

195 

16 


4o2 


** Q ** 

112 
384 


QLIELLENPROGRAMM 

QUICKFILE 


R ** 


RANDOM-ACCESS-SPEICHERUNG 

52, 

54 

READ 

20 , 

356 

RECORD 

53 


RENAME 

26 


RENLIMBER 

280 


REPLACE 

288 


REPTEST 

6'c!2 


RESET 

50 


RESTORE 

22 


RETURN^ 

13, 

198 

RETYPE" 

240 


RIGHTS 

24, 

97 

RND 

13 


RUN 

15 



S ** 

SATZ 

SAL^E 

SCHNITTSTELLE 

SCHRITTWEITE 

SCRIPT 

SEKTION 

SELECT 

SEQUENTI ELLE SPEICHERUN6 

SET 

SIN 

SOFTWARE 

SORTIEREN 

SOURCE-PROGRAM 

SPALTENINDEX 

SPEICHERADRESSE 

SPEICHEREINTEILUNG 


53 

26, 62 

42 

19 

383 

367 

369 

52, 54 

53 

13 

351, 380 
30, 38, 
112 
22 
391 
393 


374 


342 


4o3 


SPEICHERFELD 

10 


SPEICHERINHALT 

134 


SPEICHERUNG, SEQUENTI ELLE 

52, 

54 

SPEICHERZUGRIFF 

SO 


SPEICHERZUGRIFF, DIREKTER 

SO 


SPRUNG, BEDINGTER 

17 


SPRUNGADRESSE 

295 


SPRUNGANWEISUNG 

1 6 


STANDARDABWEICHUNG 

69 


STARTADRESSE 

130 


STATEMENT 

9 


STATISTISCHE AUSWERTUNG 

67 


STATI STISCHE METHODE 

69 


STOP 

27, 

101, 107 

STOP-RUN 

37S 


STR^ 

24, 

97 

STRICH 

164 


STRING 

10, 

12, 23 

STRINGBEARBEITUNGSFUNKTION 

23 


STRINGFUNKTION 

325 


STUFENKONZEPT 

369, 

, 370 

SLIBROUTINE 

IS, 

359 

SUBTRACT 

376 


SYMBOL 

1S9 



** T ** 


TAB 

12 

TAN 

13 

TASTATUR 

100 

TAXONOM 

333 

TEXT 

159, 176, 138 

TEXTDATEI 

62 

TEXTMODUS 

15S 

TON 

141 

TRENNER 

1 1 


4o4 


** U ** 


UEBERBLICK 

UMNUMERIEREN 

UNTERPROGRAMM 

UNTERPROGRAMMADRESSE 

UNTERPROGRAMMTECHNIK 


287 

265 

18, 140, 197 

390 

197 


** KJ ** 


UAL 

UARDOC 

VARIABLE 

VARIABLE, INDIZIERTE 

UARIABLENKONTROLLE 

UARIABLENN#^ME 

UERAENDERLING 

UERIFI2IERUNG 

UERLAENGERLING 

UERZUEIGUNG 

UISICALC 

ULIN 

UTAB 


23 

263, 288, 290 
53 
21 
289 
12 
62 
135 
62 
137 
381 
164 

29, 160, 322 


** Ul ** 


WAIT 107, 198 

WARTEPROGRAMM 148 

WORDSTAR 383 

WORKING-STORAGE-SECTION 372 
WRITE 357, 375 


** X ** 


X-SORTER 

X/Y-SORTER 


343 

343 


4o5 


** Z #* 


ZAEHLEN 37 

ZEICHNEN 189 

ZEILENINDEX 22 

ZUGRIFF, DIREKTER 54 


t n 

t:; 

fv^ * O J ^ 4 Ui \ t J1* • j 


s 

\ 


-y 

<'«• 


. / 


•■^1^ 


V v*! 


ACHTUNG AUTOREN 


haben ein gutes Programm oder ein Manuskript zu 
einem interessanten Buch geschrieben oder würden 
dies gerne tun 


würden das Ergebnis Ihrer Arbeit gerne in größeren 
Stückzahlen vermarktet sehen 


SIE 


suchen dafür den leistungsfähigen Verlag und Ver¬ 
triebspartner Ihres Vertrauens 


WIR 


besitzen große Erfahrung in der professionellen 
Vermarktung von Software und Literatur, nicht 
nur in Deutschland, sondern auch weltweit 


lAflB haben in den letzten 12 Monaten mit dem Ver- 
VvIR kauf von 200.000 Büchern und 50.000 Pro¬ 
grammen unsere Leistungsfähigkeit unter Beweis 
gestellt 


WIR 


suchen weitere Autoren, mit denen wir gemein¬ 
same Erfolge erringen können 


SIE und WIR 


sollten Zusammenarbeiten. 


Bitte, senden Sie eine Beschreibung Ihres Pro¬ 
gramms oder Ihres Buchprojekts an Dr. Achim 
Becker c/o DATA BECKER, oder fordern Sie ein¬ 
fach unsere unverbindlichen „Informationen für 
Autoren" an. 


IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


DATA BECKER 

Merowingerstraße 30 • 4000 Düsseldorf • Telefon (0211)31 0010 • im Hause AUTO BECKER 



FANTASTISCH 

Was so ein COMMODORE 64 mit DATA BECKER PROGRAMMEN alles kann: 


Mit DATAMAT „frißt" Ihr C-64 Ordner, 
Karteikästen und Notizbücher. DATAMAT 
ist eine universelle Dateiverwaltung, 
die Sie auf vielfältige Weise nutzen 
können. Frei gestaltbare Eingabe¬ 
maske mit bis zu 50 Feldern, 
max. 40 Zeichen pro Feld und 
bis zu 253 Zeichen pro Daten¬ 
satz. Bis zu 2000 Datensätze 
pro Diskette. Sortiermöglich¬ 
keit nach mehreren Feldern in 
beliebiger Kombination. Druck von Auswertungen. Listen und 
Etiketten. DATAMAT sollte zu jedem 64er gehören. 



Mit TEXTOMAT werden Briefe. Rundschreiben und kom¬ 
plette Bücher zum Kinderspiel. TEXTOMAT schafft 80Zeichen 
pro Zeile durch horizontales Scrolling. Ausdruck bis 255 
Zeichen Breite. Textlänge bis zu 24 000 Zeichen im Speicher. 
Verketten von Texten. Textbausteinverarbeitung. Formatie¬ 
rung. Blocksatz. Formularsteuerung. Serienbriefe un d nat ür- 
lich deutsche Zeichen nicht nur auf dem Bild¬ 
schirm. sondern mit vielen 
Druckern (Epson. GP100 
VC. 1525. 1526. 801) 
auch auf dem Papier. 

MitTEXTOMATmacht ^ 

Schreiben Spaß. 



SYNTHIMAT verwandelt Ihren COMMODORE 64 
in einen professionellen, polypho-^^"^^^ ^ 

nen. dreistimmigen Synthesi- ^ 

zer, der in seinen unglaublich^ 
vielen Möglichkeiten gro-. " ^ 

ßen und teuren Synthesi- f 
zern kaum nachsteht. Mit 
SYNTHIMAT wird Ihr 64 für 
wenig Geld zur Superma-V 
schine. 



Entdecken Sie die faszinierende Welt der 
Computergraphik mit 
SUPERGRAPHIK 64, der starken 
Befehlserweiterung mit den vielseiti¬ 
gen Möglichkeiten. 187 (!) Befehls¬ 
kombinationen für Sprites, Gra¬ 
phik und Sound. Mit der 
SUPERGRAPHIK 64 machen Sie 
mehr aus Ihrem COMMODORE 64. 

Für Druckerbesitzergibt es die Möglich 
keit. eine Hardcopy des Bildschirms zu erstellen 



PASCAL 64 ist ein leistungsfähiger PASCAL-Compiler. mit um¬ 
fangreichem Befehlssatz, der auch die hoch¬ 
auflösende Graphik und die Sprites 
des COMMODORE 64 
unterstützt. Ein-/Ausgabe 
über Diskette und Drucker 
sowie REAL und INTEGER 
Arithmetik. PASCAL 64 ist 
sehr schnell, da echter Maschi¬ 
nencode erzeugt wird! 



DISKOMAT hilft Ihnen, mehr aus 
Ihrer Floppy zu machen, mit 
SUPERTWIN. dem Steuerpro¬ 
gramm, das zwei VC-1541 wie ein 
Doppellaufwerk verwaltet, mit 
DISC-BASIC, den Diskettenbefeh¬ 
len des BASIC 4.0, mit denen Sie eine 
komplette Diskette oder Auszüge mit 
einem Befehl kopieren können und mit einem komfortablen 
DISK-MONITOR. 



Mit FAKTUMAT ist das Schreiben von 
Rechnungen kein Alptraum mehr. Eine i 
Sofortfakturierung mit integrierter La- ^ 
gerbuchführung. Individuelle Anpas¬ 
sung von Steuersätzen, Maßeiphei- 
ten und Firmendaten. Kunden- und 
Artikelstamm voll pflegbar. Schnel¬ 
ler Zugriff auf Kunden- und Artikel¬ 
daten über frei definierbaren. 6-stelli 
gen Schlüssel. Automatische Fortschreibung 
von Artikel- und Kundendaten, individuell nutzbar. 

Alles in allem die Arbeits- und Zeitersparnis die Sie sich schon 
längst gewünscht haben. 



Mit Maschinensprache geht vieles schneller. PROFIMAT ent¬ 
hält den komfortablen Maschinensprache Monitor PROFI- 
Mon und PROFI-Ass. einen sehr leistungsfähigen Assembler. 
PROFI-Ass bietet unter anderem formatfreie Eingabe. 

komplette Assemblerlistings. lad¬ 
bare Symboltabellen (Labels), 
redifinierbare Symbole, eine 
Reihe von Assembleranwei¬ 
sungen, bedingte As- 
) semblierung und As¬ 
semblerschleifen. 



Darauf haben Sie bestimmt gewartet: Passend zum Superhit COMMODORE 64 gibt’s jetzt die neuen 
DATA BECKER PROGRAMME - Spitzensoftware auf Diskette zu unglaublich niedrigen Preisen. Alle 
Programme werden mit ausführlichem Handbuch und in einem formschönen Ordner geliefert. 









PROFIMAT IN STICHWORTEN 

PROFIMAT ist ein leistungsfähiges Programmpaket zur professionellen Maschinenprogrammierung 

mit dem COMMODORE 64 

— PROFI-MAT 

— komplette Assemblerlistings 

— PROFI-MON 

— ladbare Symboltabellen 

— 2 K-Byte Maschinenprogramm 

— bedingte Assemblierung und Assemblerschleifen 

— Register- und Speicherinhalte anzeigen/ändern 

— Verkettung von Quellprogrammen 

— Maschinenprogramme laden, speichern, ausführen. 

— umfangreiche Pseudo-Opcodes 

disassemblieren 

— vielfältige arithmetische und logische Operationen 

— Speicherbereiche durchsuchen, vergleichen, füllen 

— arbeitet mit beliebiger Gerätekonfiguration 

— PROFI-ASS 

— Diskettenprogramm 

— 4 K-Byte Maschinenprogramm 

— mit ausführlichem Handbuch 

— formatfreie Eingabe 



PASCAL 64 IN STICHWORTEN 

PASCAL 64. DAS IDEALE PASCAL FÜR EINSTEIGER ZUM COMMODORE 64 

— erzeugt echte Maschinensprache 

Datentypen; 

— ca. 22 K frei für Programm und Symboltabelle 

- CHAR 

— einfache Programmerstellung durch Bildschirmeditor 

- INTEGER 

— enthält alle wichtigen Methoden zur Programm- 

— REAL 

Strukturierung 

— ARRAY 

Standard PASCAL-Features: 

Sonderfunktionen: 

— BEGINN . . . END 

- PEEK 

— WHILE ... DO 

- SYS 

— REPEAT . . . UNTIL 

— Graphikbefehle 

— CASE 

— Behandlung sequentieller Dateien 

- PROCEDURE 

— einbinden externer Prozeduren und Funktionen von 

— FUNKTION 

Diskette 

— lieferbar auf Diskette 

— mit detailliertem Handbuch 


SYNTHIMAT IN STICHWORTEN 

SYNTHIMAT ist ein leistungsfähiger, polyphoner Synthesizer für den COMMODORE 64 

— drei Oszillatoren (VCOs) mit 7 Fußlagen und 

— speichern von bis zu 256 Klangregistern 

8 Wellenformen 

— schneller Registerwechsel 

— drei Hüllkurvengeneratoren (ADSRs) 

— speichern von 9 Registerdateien Diskette 

— ein Filter (VCF) mit 8 Betriebsarten und 

— ..Bandaufnahme" auf Diskette durch direktes Spielen 

Resonanzregulierung 

— keine lästige Noteneingabe 

— VCF mit Eingang für externe Signalquelle 

— speichern von bis zu 9 ..Bandaufnahmen" je Diskette 

— ein Verstärker (VCA) 

— integrierte 24 Stunden-Echtzeituhr 

— Ringmodulation mit allen drei VCOs 

— einstellbares PITCH-BENDING 

— 8 softwaremäßig realisierte Oszillatoren (LFOs) 

— farblich gekennzeichnete, übersichtlich angeordnete 

— kräftiger Klang durch polyphones Spielen 

Module 

— zwei Manuale (Solo und Begleitung) 

— umfangreiches Handbuch 

— läuft mit einem Diskettenlaufwerk 


— Diskettenprogramm 


DISKOMAT IN STICHWORTEN 


DISKOMAT, ein Programmpaket mit SUPERTWIN, DISK-MONITOR und DISK-BASIC zum COMMODORE 64. 


— SUPERTWIN. ein Steuerprogramm, mit dem Sie zwei 
VC 1541 Diskettenlaufwerke wie ein Doppellaufwerk 
benutzen. Kopieren von Dateien und zwischen zwei 
Laufwerken Backup-Möglichkoit. Kompatibel zu Pro¬ 
grammen. die für Doppellaufwerke gedacht sind. 

— DISK-BASIC bietet Ihnen die komfortablen Disketten¬ 
befehle des BASIC 4.0. 

APPEND BACKUP CATALOG COLLECT 

CONCAT COPY DOPEN DCLOSE 

DLOAD DSAVE HEADER RECORD 

SCRATCH DIRECTORY RENAME DS & DS $ 


— DISK-MONITOR 

— Lesen eines Blocks von Diskette 

— Anzeige und Ändern eines Blocks am Bildschirm 

— Schreiben eines Blocks auf Diskette 

— Senden von Diskettenbefehlen 

— Anzeigen der Fehlermeldung der Diskette 

— Diskettenprogramm mit ausführlichem deutschen Hand-- 
buch 










SUPERGRAPHIK IN STICHWORTEN 


SUPERGRAPHIK 64 ist ein umfassendes Graphikprogramm für den COMMODORE 64 


— 2 unabhängige, hochauflösende Graphik-Seiten 
(320 X 200 Punkte) 

— 1 Standard Low-Graphik-Seite (80 x 50 Punkte) 

— Normalfarben-Graphik (320 x 200 Punkte) 

— Multicolor-Graphik (160 x 200 Punkte) 

— verdecktes Zeichnen (z. B. Text sichtbar. 

Graphikseite 2 wird erstellt) 

— 183 Befehle und Befehlskombinationen: 

1. Für jeden Befehl wählbare Zwischenmodi: 

Zeichnen. Löschen. Punktieren. 

Graphik-Cursor bewegen. 

Zeichnen mit ohne Farbsetzung. Punkte zählen 

2. Durch einfache Befehle zu steuernde Graphikfiguren: 
Punkt. Linie. Linienschar, Linie vom Graphik-Cursor, 
Kreise, Kreisbögen, Ellipse, Ellipsenbögen, 
selbstdefinierbare Figuren, rotieren und vergrößern 
dieser Figuren. Rahmen, Feld, Text in Graphik 

3. Weitere Graphik-Befehle: 

Graphikseiten- und Moduswechsel. Graphik löschen, 
Graphik invertieren. Scrolling von Text und Graphik, 
Wählen der Rahmen-, Hintergrund-, Zeichen¬ 
oder Punktfarbe 


— Speichern, Läden von Graphik (auch verdeckt) 

— Hardcopies für EPSON. CBM 1526, Seikosha GP 100 VC. 
Farb(!)drucker Seikosha GP 700 und andere 

mit DATA BECKER Interface 

— 8 Sprites definiert durch einen Befehl! 

— alle Sprite-Eigenschaften veränderbar 

— Positionieren und Bewegen (!) von 8 Sprites gleichzeitig 
und unabhängig voneinander, während das übrige 
Programm weiterläuft (IRQ) 

— Sprite-Kollisionsüberprüfung, Joystickunterstützung 

— automatische Unterbrechung des BASIC-Proqramms 
bei Kollisionen (Interrupt), Sprung in 
Unterbrechungsroutine, dann Weiterführung 

des Hauptprogramms 

— komfortable Soundprogrammierung mit Verstellung 
aller möglichen Sound-Parameter (Laufstärke, Klang. 
Filter. Tonhöhe. Tonlänge) ebenfalls unabhängig vom 
übrigen Programmablauf 

— umfangreiche Anleitung 

— Diskettenprogramm 


DATAMAT IN STICHWÖRTEN 

DATAMAT ist ein komfortables Dateiverwaltungsprogramm für den COMMODORE 64 


— menuegesteuert, dadurch extrem einfach zu bedienen 

— für jede Art von Daten zu gebrauchen 

— völlig frei gestaltbare Eingabemaske 

— 50 Felder pro Datensatz 

— 253 Zeichen pro Datensatz 

— je nach Umfang der Datensätze bis zu 2000 pro Datei 

— Schnittstelle zu TEXTOMAT 

— lieferbar als Diskettenprogramm mit ausführlichem 
deutschen Handbuch 

— läuft mit ein oder zwei Floppies 


Sie können: 

— nach beliebigen Feldern selektieren 

— nach allen Feldern gleichzeitig sortieren 

— Listen in völlig freiem Format drucken 

— Etiketten drucken 

— mit jedem COMMODORE Drucker arbeiten 

— nahezu jeden Fremddrucker verwenden 
(mit DATA BECKER Interface) 


TEXTOMAT IN STICHWORTEN 


TEXTOMAT, ein außergewöhnliches Textverarbeitungsprogramm für den COMMODORE 64 


— Diskettenprogramm 

— mit umfangreichem deutschen Handbuch 

— durchgehend menuegesteuert 

— deutscher Zeichensatz auch auf Commodore-Druckern 

— Rechenfunktionen 

— 24000 Zeichen pro Text 

— beliebig lange Texte durch Verknüpfung 

— frei programmierbare Steuerzeichen 


— horizontales Scrolling für 80 Zeichen pro Zeile 

— läuft mit ein oder zwei Floppies 

— Formularsteuerung für Randeinstellung usw. 

— komplette Bausteinverarbeitung 

— Blockoperationen, Suchen und Ersetzen 

— Serienbriefschreibung mit DATAMAT 

— formatierte Ausgabe auf Bildschirm 

— an fast jeden Drucker anpassbar 


STRUKTO 64 IN STICHWORTEN 

STRUKTO 64 ist eine fantastische neue Programmiersprache für strukturiertes Programmieren mit COMMODORE 64. 


— Interpretersprache, die die Vorzüge von BASIC UND 
PASCAL vereint 

— strukturiertes Programmieren 

— übersichtliche Programme 

— leichte Erlernbarkeit 

— einfache Bedienung 

— eingebautes Toolkit erleichtert das Eingeben und Ver¬ 
bessern von Programmen 

— leichteres Arbeiten mit der Floppy 


-— Sprite-Editor ermöglicht das Einlesen der Sprite-Formen 
direkt vom Bildschirm 

— Graphikbedienung wird mit gut durchdachten Befehlen 
unterstützt 

— Abspielen von Musik ist unabhängig vom Programmab¬ 
lauf möglich 

— ca. 80 neue Befehle 

— lieferbar als Diskettenprogramm 

— ausführliches, deutsches Handbuch 


STRUKTO 64 ist für alle Programmierer geeignet, die den COMMODORE 64 als Allround-Computer einsetzen wollen 
und auf einfache Weise anspruchsvolle Programme erstellen wollen. 










KONTOMAT IN STICHWORTEN 


KONTOMAT ein Diskettenprogramm zur Einnahme-ZÜberschußrechnung 


— professionelles Programm, angelehnt an eine echte 
Finanzbuchhaltung 

— maximal 120 definierbare Konten 

— 4 Mehrwert- und Vorsteuerkennzeichen 

— intervallmäßige Belegeingabe 

— 4 verschiedene Buchungsarten (SOLLVHABEN, 
HABEN/SOLL, SOLL. HABEN) 

— Anzeige der SOLL- und HABEN-Summe bei mehr¬ 
fachen Buchungssätzen 

— komfortable Belegeingabe mit Datum. Belegnummer. 


Buchungstext, Steuerkennzeichen, Buchungsart und 
Betrag 

— Druck des Journals mit der Belegeingabe 

— Druck von Kontenblättern 

— Druck einer Summen- und Saldenliste mit Monats- und 
Jahresumsatzsummen 

— betriebswirtschaftliche Auswertung mit Druckausgabe 

— Verzeichnis der AfA und der Sofortabschreibung 

— ein oder zwei Laufwerke 

— umfangreiches Handbuch 


FAKTUMAT IN STICHWORTEN 

FAKTUMAT ist ein Programm zur Fakturierung und Rechnungserstellung für den COMMODORE 64 


— voll menuegesteuert 

— Artikeldatei & Kundendatei parameterisiert 

— läuft auf 1 oder 2 Floppies 1.541 

— Drucker: VC-1525. VC-1526. 

EPSON RX-/FX-80 mit DATA BECKER Interface 

— Diskettenprogramm 

— frei definierbarer Firmenkopf 

— 4 wählbare Mehrwertsteuersätze 

— Maximal 950 Artikel bei 50 Kunden oder 50 Artikel 
bei 950 Kunden. Die Summe von Kunden + Artikel 


kann maximal 1000 betragen 
Druck von Rechnung und Lieferschein möglich 
Lagerbuchführung ist integriert. Alle Artikel die über 
Rechnung/Lieferschein rausgegangen sind, werden in 
der Lagerdatei abgebucht. 

Rechnungsbeträge werden in der Kundendatei 
festgehalten 

deutsches, detailliertes Har^dbuch 

Sie arbeiten mit einer Diskette für Ihre Daten 


PAINT'PIC IN STICHWORTEN 


PAINT-PIC ist ein faszinierendes Malprogramm für den COMMODORE 64 


— Programmsteuerung: Tastatur — 

— Steuerung des Stifts: Cursortasten und eckige Klammer 
(diag.) (Joystick kann benutzt werden) 

— Routinen: Linien, Rechtecke. Dreiecke. Parallefo- — 

gramme, Kreise. Kreisbögen. Ellipsen. Bestimmung v. 
Mittelpunkt, u. perspektivischer Linie. Kopieren u. — 

drehen v. Teilbildern. Verdoppeln, halbieren u. spiegeln — 
V. Teilbildern — 


Modi: Malstiftmodus (schmale Linie) 

Pinselmodus (8 verschiedene Breiten) (Art der Linie 
selbst definierbar) 

Textmodus (Kompl. Zeichensatz Commodore) (Hoch- 
Tiefschrift) 

Speichern: Teilbilder (Blöcke) oder ganze Bilder 
Menue: 1 Hauptmenue mit 8 Untermenues 
mit ausführlichem deutschen Handbuch 
Diskettenprogramm 

Bilder kann man auf Diskette oder Cassette abspeichern 


MASTER 64 IN STICHWORTEN 

MASTER: Professionelles Programmentwicklungssystem für COMMODORE 64 

— 70 zusätzliche Befehle 

— Schlussellänge bis zu 30 Zeichen 

— Bildschirmmaskengenerator 

— Dateigröße nur von Diskettenkapazität abhängig 

— Definieren von Bildschirmzonen 

— Zugriff über Schlüssel und Auswahlmasken 

— Eingabe aus Zonen 

— Druckmaskengenerator 

— Formatierte Ausgabe 

— Erstellung beliebiger Formulare und Ausgabemasken 

— Abspeicherung von Bildschirminhalten 

— BASIC-Erweiterungen 

— Arbeiten mit mehreren Bildschirmmasken 

— Toolkitfunktionen 

— ISAM Dateiverwaltung 

— Mehrfachgenaue Arithmetik 

— Datensätze bis zu 254 Zeichen 

Rechnen mit 22 Stellen Genauigkeit 
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Alles, was Sie sehon immer über 
ihren COihMODORS wissen wellten! 



DAS 

MASCHINENSPRACHE¬ 
BUCH ZUM 
COMMODORE 64 
1984. ca. 200 Seiten, 

DM 39.- 


Eine leicht verständliche Einführung in die Programmierung in 
Maschinensprache für alle, denen die Programmierung des 
Commodore 64 in BASIC nicht mehr ausreicht. Sie lernen Auf¬ 
bau, Arbeitsweise und Register des6510-Mikroprozessors ken¬ 
nen und werden über Bit, Bytes, Daten und Adressen aufge¬ 
klärt. Anhand von Beispielen lernen Sie alle Befehle des 6510 
kennen und anwenden. Dabei werden die Analogien zu BASIC 
Ihnen beim Verständnis helfen. Ein weiteres Kapitel beschäftigt 
sich mit der Eingabe von Maschinenprogrammen. Dort er¬ 
fahren Sie auch alles über Monitor-Programme sowie über 
Assembler. Zum einfachen und komfortablen Erstellen Ihrer 
eigenen Maschinensprache enthält das Buch einen kompletten 
Assembler, damit Sie gleich von Anfang an komfortabel und 
effektiv programmieren können. Weiterhin finden Sie dort einen 
Disassembier, mit dem Sie sich Ihre Maschinenprogramme 
oder die Routinen des BASIC-Interpreters und des Betriebs¬ 
systems ansehen können. Ein besonderer Clou ist ein in BASIC 
geschriebener Einzelschrittsimulator, mit dem Sie Ihre Pro¬ 
gramme schrittweise ausführen können. Dabei werden Sie 
nach jedem Schritt über Registerinhalte und Flags informiert 
und können den logischen Ablauf Ihres Programms verfolgen. 
Eine unschätzbare Hilfe besonders für den Anfänger. Als Bei¬ 
spielprogramm finden Sie ausführlich beschriebene Routinen 
zur Grafikprogrammierung und für BASIC-Erweiterungen. 
Natürlich sind alle Beispiele und Programme auf Ihren 
Commodore 64 zugeschnitten. 



DAS TRAININGSBUCH 
ZUM SIMON’s BASIC. 
1984, ca. 300 Seiten, 

DM 49.- 


SIMON’s BASIC ist ein Hit — wenn man es richtig nutzen kann. 
Deshalb gibt es jetzt zu dieser vielseitigen Befehlserweiterung 
unser umfangreiches Trainingsbuch. Auf über 300 Seiten er¬ 
klärt es Ihnen detailliert den Umgang mit den über 100 Befehlen 
des SIMON’s BASIC. Alle Befehle werden ausführlich darge¬ 
stellt, auch die, die nicht im Handbuch stehen! Natürlich zeigen 
wir auch die Masken des SIMON’s BASIC und geben wichtige 
Hinweise, wie man diese umgeht. Zum Buch gehören zahl¬ 
reiche Beispielprogramme und viele interessante Programmier¬ 
tricks. Alle Befehle sind entsprechend ihren Anwendungen in 
entsprechende Kapitel geordnet: Einführung in das CBM 
BASIC 2.0 — Programmierhilfen — Fehlerbehandlung — Pro¬ 
grammschutz — Programmstruktur — Variablen — Zahlenbe¬ 
handlung — Eingabekontrolle — Ein/Ausgabe Peripheriebe¬ 
fehle — Graphik — Zeichensatzerstellung — Sprites — Musik — 
Steuernde Peripherie — SIMON’s BASIC und die Verträglich¬ 
keit mit anderen Erweiterungen und Programmen. Dazu ein 
umfangreicher Anhang. Nach jedem Kapitel finden SieTestauf- 
gaben zum optimalen Selbststudium und zur Lernerfolgskon¬ 
trolle. DAS TRAININGSBUCH ZUM SIMON’s BASIC sollte 
jeder Anwender dieser universellen Befehlserweiterung unbe¬ 
dingt haben. 




























DAfA BECKER EUCHER 



DAS GROSSE 
FLOPPY-BUCH, 
1983, ea. 320 Seiten. 
DM 49.- 


Darauf haben Sie gewartet: Endlich ein Buch, das Ihnen aus¬ 
führlich und verständlich die Arbeit mit der Floppy VC-1541 er¬ 
klärt. DAS GROSSE FLOPPY BUCH ist für Anfänger. Fortge¬ 
schrittene und Profis gleichermaßen interessant. Sein Inhalt 
reicht von der Programmspeicherung bis zum DOS-Zugriff. von 
der sequentiellen Datenspeicherung bis zum Direktzugriff, von 
der technischen Beschreibung bis zum ausführlich dokumen¬ 
tierten DOS-Listing. von den Systembefehlen bis zur detaillier¬ 
ten Beschreibung der Programme der Test/Demodiskette. 
Exakt beschriebene Beispiel- und Hilfsprogramme ergänzen 
dieses neue Superbuch. Aus dem Inhalt: Der erste Kontakt — 
Das Speichern von Programmen — Die Floppy-Systembe- 
fehle — Sequentielle Datenspeicherung — Relative Daten¬ 
speicherung — Die Fehlermeldungen und Ihre Ursachen — Der 
Direktzugriff — Der Zugriff auf das DOS — Technik der Floppy 
und der Diskette — DOS-Listing der VC-1541 — Dienstpro¬ 
gramme — BASIC-Erweiterungen und Programme zur kom¬ 
fortablen Benutzung der VC-1541 - Overlaytechnik — Disk¬ 
monitor — lEC-Bus und serieller Bus — Gemeinsamkeiten mit 
den großen CBM-Floppies und Unterschiede gegenüber der 
VC-1541. Mit dem GROSSEN FLOPPY-BUCH meistern Sie 
auch Ihre Floppy. 
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64 FÜR PROFIS 
1983. ca. 280 Seiten. 
DM 49.- 


Wer besser und leichter in BASIC programmieren möchte, der 
braucht dieses Buch. 64 FÜR PROFIS zeigt, wie man erfolg¬ 
reich Anwendungsprobleme in BASIC löst und verrrät die Er¬ 
folgsgeheimnisse der Programmierprofis. Vom Programm¬ 
entwurf über Menüsteuerung. Maskenaufbau, Parameteri- 
sierung. Datenzugriff und Druckausgabe bis hin zur guten 
Dokumentation wird anschaulich mit Beispielen dargestellt, 
wie Profiprogrammierung vor sich geht. Besonders stolz sind 
wir auf die vö+Hg neuartige DatenzughffsmethodeOUISAM. die 
in diesem Buch zum ersten Mal vorgestellt wird. OUISAM er¬ 
laubt eine beliebige Datenzusatzlänge, die dynamisch mit der 
Eingabe der Daten wächst. Eine lauffertige Literaturstellenver¬ 
waltung veranschaulicht die Arbeitsweise von OUISAM. Ne¬ 
ben diesem Programm finden Sie auch noch weitere Pro¬ 
gramme zur Lager- und Adressenverwaltung, Textverarbei¬ 
tung und einen Reportgenerator. Alle diese Programme sind 
mit Variablenliste versehen und ausführlich beschrieben. 
Damit sind diese für Ihre Erweiterungen offen und können von 
Ihnen an Ihre speziellen Bedürfnisse angepaßt werden. Mit 64 
FÜR PROFIS steigen Sie in die Welt der Programmierprofis 
ein. 
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64 TIPS & TRICKS. 
2. Auflage, 

1983. ca. 290 Seiten. 
DM 49.- 


64 Tips & Tricks ist eine hochinteressanteSammlung von Anre¬ 
gungen zur fortgeschrittenen Programmierung des 
COMMODORE 64. Poke's und anderen nützlichen Routinen, 
interessanten Programmen sowie aktuellen Programmiertips 
und -tricks. Aus dem Inhalt: 3D-Graphik in BASIC — Farbige 
Balkengraphik — Definition eines eigenen Zeichensatzes — 
Die Tastaturbelegung und ihre Änderung — Dateneingabe mit 
Komfort — Simulation der Maus mit einem Joystick — BASIC 
für Fortgeschrittene —Ihr COMMODORE64 spricht Deutsch — 
CP/M auf dem COMMODORE 64 — Druckeranschluß über 
den USER-Port — Datenübertragung von und zu anderen 
Rechnern — Der Expansionsport — Synthesizer in Stereo — 
Retten einer nicht ordnungsgemäß geschlossenen Datei — Er¬ 
zeugen einer BASIC-Zeile in BASIC — Der Kassettenpuffer als 
Datenspeicher — Sortieren von Stringfeldern — Multitasking 
auf dem COMMODORE 64 — POKE’s und die Zeropage — 
GOTO. GOSUB und RESTORE mit berechneten Zeilen¬ 
nummern INSTR und STRING-Funktion — Repeatfunktion für 
alle Tasten — und vieles andere mehr. Alle Maschinenpro¬ 
gramme mit BASIC-Ladeprogrammen. 64 TIPS & TRICKS ist 
eine echte Fundgrube für jeden COMMODORE 64 Anwender. 
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64 INTERN. 

3. Auflage, 

1983, ca. 320 Seiten. 
DM 69.- 


64 INTERN ist unser großes Buch zum COMMODORE 64. 
Ideal für alle, die sich näher mit Programmierung, Technik und 
Betriebssystem von COMMODORE’s Supermaschine ausein¬ 
andersetzen wollen. Detailliert werden Architektur und tech¬ 
nische Möglichkeiten des C-64 beschrieben, vom Prozessor 
6510 über Video-Controller 6569, Sound Controller 6581. Ein-/ 
Ausgabesteuerung mit CIA 6526 bis hin zum seriellen lEC-Bus, 
USER-Port und EXPANSION-PORT. Paralell dazu wird die 
Programmierung der hochauflösenden Graphik und der 
Sprites erklärt, die Sonderprogrammierung und die Pro¬ 
grammierung des C-64 in Maschinensprache. Mit einen aus¬ 
führlich dokumentierten ROM-Listing wird das Betriebssystem 
zerlegt. Wertvolle Hinweise zum Umsetzen von Programmen 
bringt ein Vergleich zwischen VC-20. C-64 und CBM 8000. 
Zahlreiche lauffertige Beispielprogramme und Routinen, z. B. 
Graphik-Aid. HARDCOPY, RENEN und PRINT USING runden 
das Buch ab. Der Clou von 64 INTERN sind neben den zahl¬ 
reichen Schaltbildern und Blockdiagrammen 2 Original 
COMMODORE-Schaltpläne zum Ausklappen, die zusätzlich 
sehr ausführlich beschrieben und dokumentiert sind. Dieses 
Buch sollte jeder COMMODORE 64- Anwender und Interes¬ 
sent haben. 
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Der COMMODORE 64 ist ein Musikgenie. Mit diesem 
Buch lernen Sie alles über seine musikalischen Fähig¬ 
keiten und wie Sie diese programmtechnisch nutzen. 
Der Inhalt des Musikbuches reicht von einer Einführung 
in die Computermusik über die Erklärung der Hardware- 
Grundlagen und die Programmierung in BASIC bis hin 
zur fortgeschrittenen Musikprogrammierung in Ma¬ 
schinensprache. Zahlreiche Beispielprogramme, kom¬ 
plette Songs und nützliche Routinen ergänzen den leicht 
verständlichen Text. Geschrieben wurde das Buch von 
Thomas Dachsei, dem Autor der weltbekannten Musik¬ 
programme SYNTHIMAT und SYNTHESOUND. Er¬ 
schließen Sie sich die Welt des Sounds und der Com¬ 
putermusik mit dem Musikbuch zum COMMODORE 64. 

DAS MUSIKBUCH ZUM 

COMMODORE 64 

1984, ca. 200 Seiten. DM 39.— 
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DAS 

DATABECKER 

LEXIKON 

ZUM 

COMMODORE 64 




EIN DATA BECKER BUCH 


So etwas haben Siegesucht: UmfassendesNachschlage- 
werk zum COMMODORE 64 und seiner Programmie¬ 
rung. Allgemeines Computerlexikon mit Fachwissen von 
A-Z und Fachwörterbuch mit Übersetzungen wichtiger 
englischer Fachbegriffe - das DATA BECKER LEXIKON 
ZUM COMMODORE 64 stellt praktisch drei Bücher in 
einem dar. Es enthält eine unglaubliche Vielfalt an Infor¬ 
mationen und dient so zugleich als kompetentes Nach¬ 
schlagewerk und als unentbehrliches Arbeitsmittel. 
Viele Abbildungen und Beispiele ergänzen den Text. Ein 
Muß für jeden COMMODORE 64 Anwender. 

DAS DATA BECKER 
LEXIKON ZUM 
COMMODORE 64 
1984, ca. 350 Seiten. DM 49,— 
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Graphik ist einederHauptstärkendesCOMMODORE64. 
Mit diesem leicht verständlich geschriebenen, aber sehr 
umfassenden neuen Buch lernen Sie, wie Sie die gra¬ 
phischen Fähigkeiten für Ihre eigenen Programme 
optimal nutzen. Der Inhalt reicht von den Grundlagen 
der Graphikprogrammierung über das Erzeugen ein¬ 
facher Figuren, die Arbeit mit Sprites, Zeichensatzpro¬ 
grammierung, Hardcopy und IRQ-Handhabung bis hin 
zur Funktionendarstellung, Laufschrift, Statistik, 3-D, 
CAD, den Geheimnissen der Actionsspiele und Lightpen- 
anwendungen. Zahlreiche Beispielprogramme, nütz¬ 
liche Routinen und komplette Anwendungen ergänzen 
diese Buch, das die faszinierende Welt der Com¬ 
putergraphik jedermann zugänglich macht. Geschrie¬ 
ben wurde das Graphikbuch von dem bekannten 
SUPERGRAPHIK-Autor Axel Plenge. 


DAS GRAPHIKBUCH 

ZUM COMMODORE 64 1984, ca. 250 Seiten. DM 39.— 
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Das sollte Ihr erstes Buch zum COMMODORE 64 sein: 
64 FÜR EINSTEIGER ist eine sehr leicht verständliche 
Einführung in Handhabung, Einsatz, Ausbaumöglich¬ 
keiten und Programmierung des COMMODORE 64, die 
keinerlei Vorkenntnisse voraussetzt. Sie reicht vom An¬ 
schluß des Geräts über die Erklärung der einzelnen 
Tasten und Funktionen sowie die Peripheriegeräte und 
ihre Bedienung bis zum ersten Befehl. Schritt für Schritt 
führt das Buch Sie In die Programmiersprache BASIC 
ein, wobei Sie nach und nach eine komplette Adressen¬ 
verwaltung erstellen, die Sie anschließend nutzen kön¬ 
nen. Zahlreiche Abbildungen und Bildschirmfotos er¬ 
gänzen den Text. Viele Anwendungsbeispiele geben 
nützliche Anregungen zum sinnvollen Einsatz des 
COMMODORE 64. Das Buch ist sowohl als Einführung 
als auch als Orientierung vor dem 64er Kauf gut geeignet. 
64 FÜR EINSTEIGER 
1984, ca. 200 Seiten, DM 29,— 

Diese neue, umfangreiche Programmsammlung hat es 
in sich. Über 50 Spitzenprogramme für den 
COMMODORE 64 aus den unterschiedlichsten Berei¬ 
chen, von attraktiven Superspielen {„Senso", „Pengo", 
„Seeschlacht“, „Poison Square“, „Memory“) über 
Graphik- und Soundprogramme („Fourier 64“, „Akusto- 
graph“, „Funktionsplotter“) sowie Utilities („SORT“, 
„Renumber“, „Disk Init“, „Menue“) bis hin zu kompletten 
Anwendungsprogrammen wie „Videothek“, „File Mana¬ 
ger“ und einer komfortablen Haushaltsbuchführung, in 
der fast professionell gebucht wird. Der Hit sind zu jedem 
Programm aktuelle Programmiertips und Tricks der ein¬ 
zelnen Autoren zum Selbermachen. Also — nicht nur ab- 
tlppen, sondern auch dabei lernen und wichtige Anre¬ 
gungen für die eigene Programmierung sammeln. 

DATA BECKER s GROSSE 64er PROGRAMMSAMMLUNG 
1984, ca. 250 Seiten, DM 49,— 

Achtung Hobbyelektroniker: Dieses neue Buch enthält 
nicht nur alles über die Ausbaumöglichkeiten des 
COMMODORE 64 und wie man ihn über seine Schnitt¬ 
stellen mit dem „Rest der Welt“ verbindet, sondern auch 
umfassende Informationen über die vielfältigen Einsatz¬ 
möglichkelten des COMMODORE 64 von der Lichtorgel 
über Motorsteuerung, Spannungs- und Temperatur¬ 
messung bis zur programmierbaren Stromversorgung, 
und wie man diese verwirklicht. Umfassende Darstellung 
der Grundlagen. Als Clou enthält das Buch zehn kom¬ 
plette Schaltungen zum Seiberbauen, vom Eprommer 
über Eprom-Karte, Logic Analyzer, Frequenzzähler, 
Hardware-Tracer, Pulsmeßgerät, Klatschschalter und 
Digital-Voltmeter bis zur preiswerten Spracheingabe- 
Sprachausgabe. Jeweils komplett mit Schaltplan, Layout 
und Softwarellsting. Auch für Profis Interessant. 

DER COMMODORE 64 UND 

DER REST DER WELT 1984. ca. 220 Seiten. DM 49,— 
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VC-20 INTERN. 

2. Auflage, 

1983, ca. 230 Seiten, 
DM 49.- 


Die bereits 3. Auflage von VC-20 INTERN ist wieder erheblich 
erweitert worden. Das Buch beschäftigt sich ausführlich mit 
der Technik und dem Betriebssystem des VC-20. Dazu gehört 
natürlich zuerst einmal ein komplettes und ausführlich doku¬ 
mentiertes ROM-Listing. Dazu gehört auch die Belegung der 
ZEROPAGE, dem wichtigsten Speicherbereich für den 6502- 
Prozessor, eine übersichtliche Auflistung der Adressen aller 
Betriebssystemroutinen, ihrer Bedeutung und ihrer Übergabe¬ 
parameter. Dies ermöglicht dem Programmierer endlich, den 
VC-20 von Maschinensprache aus sinnvoll einzusetzen. Denn 
warum Routinen, die bereits vorhanden sind, noch einmal 
schreiben? Für Einsteiger befindet sich eine Einführung in die 
Programmierung in Maschinensprache am Anfang des 
Buches. Diese behandelt die Themen Maschinensprache¬ 
monitor, Disassembler und Assembler. Außerdem wird die Ver¬ 
bindung von BASIC- und Maschinenspracheprogrammen be¬ 
sprochen. Doch nicht nur die Software, auch die Hardware 
wird ausführlich beschrieben. Detailliert werden alle wichtigen 
IC’s im VC-20 in Ihrer Arbeitsweise beschrieben. Neben einem 
übersichtlichen Blockschaltbild enthält VC-20 INTERN noch 
als besonderen Clou drei Original COMMODORE Schaltpläne 
zum Ausklappen. Dieses Buch braucht jeder, der sich näher 
mit Technik und Maschinenorogrammierung des VC-20 aüs- 
einandersetzen möchte. 
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VC-20 TIPS & TRICKS. 
2. Auflage, 

1983, ca. 230 Seiten. 
DM 49.- 


Die überarbeitete und erheblich erweiterte 2. Auflage von 
VC-20 TIPS & TRICKS enthält endlich eine genaue Erklärung 
des Speicheraufbaus des VC-20 in allen möglichen Erwei¬ 
terungsstufen. Vergessen Sie alles, was Ihnen über Grafik und 
Sound auf dem VC-20 bisher geliefert wurde. In diesem Buch 
finden Sie von den Grundlagen angefangen über die program¬ 
mierbaren Zeichen, über eine Grafikerweiterung in Maschinen¬ 
sprache. über luxuriöse Programme wie z. B. Grafikeditor, 
Funktionenplotter oder 3D-Grafiken bis hin zur Supererwei¬ 
terung zum VC-20 alles Wissenswerte und zum Arbeiten Not¬ 
wendige für eine gute Grafik. Ebenso ausführlich wird dieTon- 
erzeugung behandelt. Neben der Erläuterung der Grundlagen 
und einem Soundeditor sind natürlich auch fertige Pro¬ 
gramme. z. B. der VC-20 als Synthesizer oder Schlagzeug ab¬ 
gedruckt. Auf über 100 Seiten finden Sie viele nützliche Tricks, 
POKE-Befehle, BASIC-Erweiterungen fix und fertig zum Ein¬ 
tippen. Dazu gehören z. B. Unnew. automatische Zeilennume¬ 
rierung, die Programmierung des User-Port, ein Diskmenue, 
Hardcopy und so weiter. Bringen Sie Ihrem VC-20 völlig neue 
Befehle bei! Abgerundet wird das Buch durch Anwenderpro¬ 
gramme zum Eintippen, wie Dateiverwaltung, Textverarbei¬ 
tung und Spiele. VC-20 TIPS & TRICKS braucht jeder VC-20 
Besitzer, der mehr über seinen Computer wissen möchte. 























DAS STEHT DRIN: 

APPLE II TIPS & TRICKS bietet eine ungeheure Fülle 
an Informationen, die dem schon etwas erfahrenen 
APPLE Il-Besitzer viele zusätzliche Möglichkeiten 
eröffnet. 

Aus dem Inhalt: 

- Peripherieanwendung 

- Interaktive Diskettennutzung 

- Mischen von Texten und Graphik 

- Menuetechnik 

- Direkter Speicherzugriff 

- Unterprogramme in Maschinensprache 

- Hochauflösende Grafik 

- Mischen von Text und Grafik 

- Mischen von Programmen 

- Sortieren 

- Speichereinteilung 
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